clase tPRINTER (No realizar EJECT del Papel)

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

clase tPRINTER (No realizar EJECT del Papel)
Posted: Fri Apr 04, 2014 12:13 PM

Colegas
Reciban un cordial saludo y solicito su gran experiencia

Estoy imprimiendo un lista en impresora de ticket compartida (No local) y necesito que no realice la ejecución del papel (EJECT) agradezco su respuestas.

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: clase tPRINTER (No realizar EJECT del Papel)
Posted: Fri Apr 04, 2014 12:49 PM

Holá, en este caso, debes usar la clase TDOSPRN.PRG, ejemplo:

Code (fw): Select all Collapse

USB com TDOSPRN.PRG

Enla cabecera de mi rutina de impresión hice esto:

cPorta := PrnGetPort()
cPrinter := PrinterPortToName( cPorta )

if empty(cPrinter)

   cPrinter := PrinterPortToName( "USB002" )

   if empty(cPrinter)

      cPrinter := PrinterPortToName( "USB001" )

   endif

endif
 

Despues empiezo la impresión, preo creando un archivo:


oPrin := TDosPrn():New("minuta.txt")
oPrin:StartPage()
...
...
 

Y en el fin de la rutina hago esto:


...
...
oPrin:EndPage()
oPrin:End()


PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Vendas" )

Salu2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion