escribir en lpt1 colgado

[jonmendi]

Hola!
estoy haciendo una tontería para imprimir directamente al lpt1.

 
var
  Impresora: TextFile;
begin
  AssignFILE(Impresora,'LPT1');
  {$I-}
  ReWrite(Impresora);
  {$I+}
  if IOResult <> 0 then  
    showmessage('error')
  else
    writeln(Impresora,'');
  CloseFile(Impresora);

El código funciona bien, pero si por cualquier motivo tengo la impresora apagada, el programa se me queda colgado en la instrucción writeln. ¿Alguien sabe como evitar esto? ¿Hay algún modo de saber si la impresora está encendida y sin problemas (no le falta papel...)?
Muchas gracias!
Jon

[[fer21unmsm]]

Hola, creo que este hilo te puede ayudar

saludos