FoxPro/Visual FoxPro - problemas con reporte en txt

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemas con reporte en txt

Publicado por xx (378 intervenciones) el 10/01/2010 02:05:05
prueba esto

*// activa la impresora para envio
SET CONSOLE OFF
DELETE FILE [SALIDA.TXT] &&opcional
SET PRINTER TO FILE [SALIDA.TXT] ADDITIVE
SET PRINTER ON TO PROMPT
SET DEVICE TO PRINTER

??? "hoooooooo87687658765"
o
@00,00 say ...

*// desactiva la impresora
SET PRINTER OFF
SET PRINTER TO
SET PRINTER TO DEFAULT
SET DEVICE TO SCREEN
SET CONSOLE ON

*aca ya se puede leer el fichero TXT para copiarlo al EDIT1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problemas con reporte en txt

Publicado por Ramon (81 intervenciones) el 11/01/2010 01:55:23
HOLA... amigo... buenas noches...
disculpa no haberte podido contestar... lo que pasa es que estaba fuera... pero ya probe el codigo que me dices... y creo que funciona bien...

ya las impresoras que tengo conectadas a este equipo no hacen por imprimir solo la que esta conectada a lpt1...

quisiera me dieras un un ejemplo de como imprimir con

??? o con @ 00,00 say...

se que en el say @ 00,00 say... los primeros ceros indican la fila y el segundo 00indican la columna... pero no se como hace para que salte de linea...

tengo la duda tambien con el ??? cuando es salto de linea y cuando es escribir en seguida...

muchas gracias ... amigo...
saludos....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problemas con reporte en txt

Publicado por xx (378 intervenciones) el 12/01/2010 14:27:23
Busca el manual de tu impresora y leelo varias veces, sobre todo los comandos activar descativar impresora, movimientos verticales u horizontales del cabezal, activación del modo grafico (si te interesa), seteo de longitud de pagina etc.

_cecn=CHR(27)+CHR(69) &&activa pasada doble
_cdcn=CHR(27)+CHR(70) &&desactiva pasada doble
_cmbi=CHR(15)+CHR(14) &&letra grande
_csma=CHR(18)+CHR(15) &&letra mas pequeña
_cnor=CHR(18) &&letra normal
_cbig=CHR(18)+CHR(14) &&letra mas grande
_eol =CHR(13)+CHR(10) &&end of line: retorno de carro y cambio de linea

* el ??? imprime desde la posicion actual del cabezal de la impresora
* ejemplo con ??? CHR(27)+"J"+CHR(108) desplazas el cabezal 1/2 pulgada hacia abajo

??? _csma+"esto imprime una linea"+_cnor+_eol
??? _cnor+"esto imprime una linea"+_cnor+_eol
??? _cmbi+"esto imprime una linea"+_cnor+_eol
??? _cbig+"esto imprime una linea"+_cnor+_eol
??? _cnor+_cecn+"esto imprime una linea"+_cdcn+_cnor+_eol


**********************************************************************************************
* NO RECOMENDADO
**********************************************************************************************
@01,00 SAY _cenc+"esto imprime una linea en la primer fila"+_cdcn
@02,10 SAY _cmbi+"esto imprime una linea en la primer fila"+_cmbi
...
etc

para mas información buscar: Reference Manual ESC/P publicado por EPSON u otros
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar