Ayuda con tdosprn
Posted: Wed Feb 07, 2007 2:42 am
Estimados Colegas
Como puedo hacer para que cuando mando la impresion a un archivo
con tdosprn no me aparezcan caracteres de control en el margen superior
izquierdo
Codigo
define _DLL_CH
#include "FiveWin.ch" // Cabezera de FW
Function Textof
linecnt = 3
oPrn :=tDosPrn():New( "Ped.Prn" )
oPrn:Say( linecnt, 1 , "1234 Linea1")
linecnt = linecnt + 1
oPrn:Say( linecnt, 1, "linea2" )
linecnt = linecnt + 1
oPrn:Say( linecnt, 1, "" )
alerT("Termino el proceso",,"Proceso")
Archivo Prn
Me aparecen _
PW0F5
1234 Linea1
linea2
Como puedo hacer para que cuando mando la impresion a un archivo
con tdosprn no me aparezcan caracteres de control en el margen superior
izquierdo
Codigo
define _DLL_CH
#include "FiveWin.ch" // Cabezera de FW
Function Textof
linecnt = 3
oPrn :=tDosPrn():New( "Ped.Prn" )
oPrn:Say( linecnt, 1 , "1234 Linea1")
linecnt = linecnt + 1
oPrn:Say( linecnt, 1, "linea2" )
linecnt = linecnt + 1
oPrn:Say( linecnt, 1, "" )
alerT("Termino el proceso",,"Proceso")
Archivo Prn
Me aparecen _
PW0F5
1234 Linea1
linea2