Problemas conTprinter

jmua · Post by **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

Post by **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.

jmua · Post by **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.