control de errores para impresoras con clase tdosprn

[Leonor Gonzalez]

Hola:
Estoy usando la clase TDOSPRN para las salidas por impresora, trabajo el sistema por terminal server con un operativo WINDOWS 2003 SERVER y las impresoras se encuentran localmente en otros equipos con windows xp y windows 98. Trabajo la impresora de la siguiente forma:

oPrn := TDosPrn():New( \\NomPc\NomImpr )

Me sucede que si la PC esta apagada se me va del sistema. Compilo con CLIPPER 5.2 y FW 2.7 Tengo dentro del prg usando la función ISPRINTER() de clipper.
Si alguien puede darme una idea de como usar control de errores en esta situación mil gracias.

Leonor
lgonzalez@evosistemas.com.ar

[Antonio Linares]

Leonor,

Prueba así:

Code: Select all  Expand view  RUN

   BEGIN SEQUENCE
      ... tu código ...
   RECOVER USING oError
      MsgInfo( "error de impresión" )
   END SEQUENCE