Clipper/FiveWin - Problema con TDosprn

Hola compañeros....

tengo una duda respecto a la clase TDosprn....... me funciona perfectamente, pero cuando intento imprimir algo estando la impresora apagada no lo reconoce y el EXE se queda bloqueado.

Intenté con

oPrn:=TDosPrn():New(IMPREPUE) // IMPREPUE = nombre del puerto seleccionado.
if Empty( oPrn:hDC )
msgstop(' ¡ Verifique impresora... !! ')
return
endif
oPrn:say(0,0,'HOLA, ESTO ES UNA PRUEBA.')
oPrn:End()

¿ Que comando verifica si la impresora está operativa antes de imprimir ?
Mil gracias de nuevo
LORENZO

Para verificar si tenés un error de comunicacion con la impresora el oPrn:hDC tiene que darte un valor menor a 0. Verifica eso en tu rutina como lo estas haciendo pero cambiando el Empty por if oPrn:hDC<0...

Suerte

Estimado Polo,

De antemano mil gracias por tu sugerencia, pero probé y el resultado final es el mismo, es decir, el EXE se queda bloqueado hasta que no está ON-LINE la impresora.

Tiene que haber alguna solución, no?

Saludos, LORENZO
desde Cadiz, España

¿Ha probado, la función ISPRINTER()?

DO WHILE .NOT. ISPRINTER()
.
.
.
ENDDO

Saludos, José Mª

Pues va a ser que no colegas.

No es la forma correcta de verficar el estado de la impresora y menos utilizando un programa en Windows.

En el foro de FiveWin hay un archivo llamado PRNSTAT.OBJ que tienes que linkear para verificar el estado de la impresora.

Este archivo contiene la funcion PrnStatus() te devuelve .T. o .F. dependiendo si la impresora esta activa o no.

Ejemplo:

DO WHILE ! PrnStatus()
lRetry := MsgYesNo("Impresora fuera de linea, ¿ desea reintentar ?",;
"Error de Impresora")
IF ! lRetry
RETURN
ENDIF
ENDDO

Estimado Gabriel.

No localizo el archivo PRNSTAT.OBJ

¿ Me lo podrías enviar por email, por favor ?

de nuevo, Mil gracias.
LORENZO