problemas con reporte en txt
Publicado por Ramon (81 intervenciones) el 09/01/2010 22:48:41
Hola.. buenas tardes... quisiera me ayudaran con un detalle que tengo y quisiera saber porque me ocurre eso....
tengo un codigo de reporte y deseo enviarlo a TXT para despues cargarlo en un Edti1.. solo para mostrarlo pero cuando emito el reporte a un archivo la impresora que tengo instalada me manda imprimir hojas en blanco...
tengo el siguiente codigo
SET CONSOLE OFF
SET PRINTER OFF
***AQUI ES DONDE ENVIA EL REPORTE A UN ARCHIVO...
SET DEVICE TO FILE reports\minota.txt
???CHR(15) && Control code to turn compressed mode on
SELECT EMPRESA
GO Top
@ prow(),10 say ALLTRIM(nombre)
@ prow()+1,7 say ALLTRIM(Direccion)+" - "+ALLTRIM(Ciudad)
@ PROW()+1,16 say telefono
SELECT ventas
SET ORDER TO folio
SET FILTER TO folio=nFolio
GO top
@ prow()+1,2 say "Folio:"
@ PROW(),10 say FOLIO pict '9999999'
@ prow()+1,2 say "Fecha:"
@ PROW(),10 say DATE()
... aqui sigue... Y EL FINAL ES EL SIGUIENTE...
@ prow()+2,5 say "Gracias por su Preferencia.."
@ PROW()+1,2 say ""
SET CONSOLE ON
set devi to screen
RETURN
*********************************
despues lo Cargo en un EDIT1 ASI...
cfile="reports\minota.txt
Thisform.edit1.Value=FILETOSTR(cfile)
SI LO CARGA PERO ME ENVIA UNA HOJA EN BLANCO... O
SI APAGO LA IMPRESORA... ME VOY A INICIO->Impresoras y Faxes-> selecciono la impresora y le doy doble click y me dice que hay una hoja en COLA...
QUE PUEDO HACER PARA SOLUCIONAR ESTO...??
gRACIAS
tengo un codigo de reporte y deseo enviarlo a TXT para despues cargarlo en un Edti1.. solo para mostrarlo pero cuando emito el reporte a un archivo la impresora que tengo instalada me manda imprimir hojas en blanco...
tengo el siguiente codigo
SET CONSOLE OFF
SET PRINTER OFF
***AQUI ES DONDE ENVIA EL REPORTE A UN ARCHIVO...
SET DEVICE TO FILE reports\minota.txt
???CHR(15) && Control code to turn compressed mode on
SELECT EMPRESA
GO Top
@ prow(),10 say ALLTRIM(nombre)
@ prow()+1,7 say ALLTRIM(Direccion)+" - "+ALLTRIM(Ciudad)
@ PROW()+1,16 say telefono
SELECT ventas
SET ORDER TO folio
SET FILTER TO folio=nFolio
GO top
@ prow()+1,2 say "Folio:"
@ PROW(),10 say FOLIO pict '9999999'
@ prow()+1,2 say "Fecha:"
@ PROW(),10 say DATE()
... aqui sigue... Y EL FINAL ES EL SIGUIENTE...
@ prow()+2,5 say "Gracias por su Preferencia.."
@ PROW()+1,2 say ""
SET CONSOLE ON
set devi to screen
RETURN
*********************************
despues lo Cargo en un EDIT1 ASI...
cfile="reports\minota.txt
Thisform.edit1.Value=FILETOSTR(cfile)
SI LO CARGA PERO ME ENVIA UNA HOJA EN BLANCO... O
SI APAGO LA IMPRESORA... ME VOY A INICIO->Impresoras y Faxes-> selecciono la impresora y le doy doble click y me dice que hay una hoja en COLA...
QUE PUEDO HACER PARA SOLUCIONAR ESTO...??
gRACIAS
Valora esta pregunta
0