Problemas conTprinter
Posted: 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
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