Imprimiento con ???
Publicado por Felix Matta (5 intervenciones) el 04/05/2007 00:55:40
Estimados amigos, desde ya gracias por su ayuda.
Resulta que necesito leer un archivo de Texto para luego imprimirlo, y para esto estoy utilizando el comando ??? que se supone imprime directamente a la impresora
Como estoy utilizando una impresora matricial entonces necesito leer linea por lines el texto y mandar ha imprimir.
El proceso ya esta echo pero, se imprime el documento cuando salgo del programa.
Osea, que mientras no salga del programa el trabajo se que da en cola, salgo del programa y recien imprime.
este es el codigo
nFile = FOPEN(thisform.PathAux+cArchivo)
nEnd = FSEEK(nFile, 0, 2) && Move pointer to EOF
nTop = FSEEK(nFile, 0)
???+CHR(15) && imprecion reducida
DO WHILE NOT FEOF( nFile )
cTxt = FGETS(nFile,nEnd)
???RTRIM(cTxt)+CHR(10)+CHR(13) && Aqui Mando ha imprimir
ENDDO
???"."+CHR(13)+CHR(10)
???"."+CHR(13)+CHR(10)
???"."+CHR(13)+CHR(10)
???"."+CHR(13)+CHR(10)
FCLOSE( nFile )
Estoy utilizando WinXP, porfavor que me falta, he utilizado el
SET PRINTER ON
SET DEVICE TO PRINTER
y nada.... Gracias por su ayuda
Felix
Resulta que necesito leer un archivo de Texto para luego imprimirlo, y para esto estoy utilizando el comando ??? que se supone imprime directamente a la impresora
Como estoy utilizando una impresora matricial entonces necesito leer linea por lines el texto y mandar ha imprimir.
El proceso ya esta echo pero, se imprime el documento cuando salgo del programa.
Osea, que mientras no salga del programa el trabajo se que da en cola, salgo del programa y recien imprime.
este es el codigo
nFile = FOPEN(thisform.PathAux+cArchivo)
nEnd = FSEEK(nFile, 0, 2) && Move pointer to EOF
nTop = FSEEK(nFile, 0)
???+CHR(15) && imprecion reducida
DO WHILE NOT FEOF( nFile )
cTxt = FGETS(nFile,nEnd)
???RTRIM(cTxt)+CHR(10)+CHR(13) && Aqui Mando ha imprimir
ENDDO
???"."+CHR(13)+CHR(10)
???"."+CHR(13)+CHR(10)
???"."+CHR(13)+CHR(10)
???"."+CHR(13)+CHR(10)
FCLOSE( nFile )
Estoy utilizando WinXP, porfavor que me falta, he utilizado el
SET PRINTER ON
SET DEVICE TO PRINTER
y nada.... Gracias por su ayuda
Felix
Valora esta pregunta


0