Page 1 of 1

Problemas conTprinter

Posted: Wed Jun 28, 2006 10:09 am
by jmua
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

Posted: Tue Jul 04, 2006 5:44 am
by Antonio Linares
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.

Posted: Wed Jul 05, 2006 11:26 am
by jmua
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.