Ayuda con tdosprn

Ayuda con tdosprn

Postby Databaselab2002 » 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 estos caracteres
PW0F5


1234 Linea1
linea2
Databaselab2002
 
Posts: 142
Joined: Sun Oct 09, 2005 1:36 am

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 35 guests