Problemas conTprinter

Problemas conTprinter

Postby jmua » Wed Jun 28, 2006 10:09 am

Hola foro,
Utilizo tPrinter para hacer un informe y hago esto:
Local oPrn,cNewPrn
cNewPrn := 'ZEBRA 2844Z' //Tomado de una tabla que saco de AGetPrinters()
PRINT oPrn To cNewPrn
oPrn:startPage()
datos del informe
..........
..........
oPrn:EndPage()
ENDPRINT
oPrn:End()
Hasta aqui muy bien, pero si me voy a generar otro informe por otra impresora.
Como puedo tomar la impresora que tenia selecionada por defecto antes de imprimir el primer informe?, pues se queda cNewPrn por defecto, y lo que no quiero es llamar aPrinterSetup() para selecionarla manualmente.

Muchas gracias
José Martin Uriarte
jmuarg@yahoo.es
User avatar
jmua
 
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am

Postby Antonio Linares » Tue Jul 04, 2006 5:44 am

José Martin,

Prueba a no hacer oPrn:End() hasta el final de tu aplicación y crea el objeto impresora con PRINTER oPrn ... sólo una vez y mantenlo creado para sucesivos usos.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jmua » Wed Jul 05, 2006 11:26 am

Gracias Antonio,
He encontrado por hay en el foro una funcion con la cual puedo hacerlo y funciona bien.
Pero tu solución creo que es buena.
José Martin Uriarte
jmuarg@yahoo.es
User avatar
jmua
 
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests

cron