FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con tdosprn
Posts: 142
Joined: Sun Oct 09, 2005 01:36 AM
Ayuda con tdosprn
Posted: Wed Feb 07, 2007 02: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

Continue the discussion