César,
Modificando asi el método Setup() de la Clase TPrinter:
METHOD Setup() BLOCK { | Self, hDC | hDC := PrinterSetup(), ::Rebuild(), hDC != 0 }
devuelve un valor lógico, lo que te permite hacer:
- Code: Select all Expand view
if ! oPrinter:Setup()
return nil
endif