Detectar Error al imprimir.

[DeLiRioS]

Buenas amigos, se que no es el foro correcto pero es que en el foro de impresión nadie pudo ayudarme, quién pueda me da una manito por favor. Utilizo delphi 7 y mysql, y necesito imprimir en una EPSON BIXOLON SPR-270 (Ticketera) imprime todo bien, pero el unico problema es el siguiente, que en el caso de que la impresora este apagada, desconectada o sin papel al momento de enviar la impresión, mi aplicación se bloquea osea se cuelga, queda en espera y debo terminar el proceso y volver entrar. Imagino que tal vez habrá que utilizar algunos comandos de la impresora, tengo el manual pero nose como aplicarlos en delphi gracias de antemano.Eh intentado con Try..excep y {$I-} ... {$I+} y nada, Este es el código:

Código Delphi [-]
Assignfile(iImpresora,'Lpt1'); //Puerto: LPT1, COM1, etc;
Rewrite(iImpresora);
Writeln(iImpresora,'Hola mundo');
Write(iImpresora, Cortapapel);
CloseFile(iImpresora);

[genius]

Prueba a ver si te funciona con esto , deberias de arrojarlo en un archivo log para ver que sucede y tratar el error con try except end, suerte

Código Delphi [-]
Procedure TForm1.ShowPrinterStatus( const PrinterName : String );
Var
  PrinterInfo: PPrinterInfo2;
  PrinterHandle : THandle;
  Stat : LongBool;
  requiredSize : Cardinal;

Begin
  Try
    Stat := OpenPrinter( PChar(PrinterName), PrinterHandle, NIL ); //
This works fine

    If ( Stat )
      Then
        Begin
          Try
            GetMem( PrinterInfo, 1024 );
            Stat := GetPrinter(PrinterHandle, 2, PrinterInfo, 1024,
@requiredSize );
            Edit2.Text := 'Printer Name Is: ' +
PrinterInfo^.pPrinterName;

            Case PrinterInfo^.Status of
              0 : Edit1.Text := 'Printer Ready!';
              PRINTER_STATUS_DOOR_OPEN : Edit1.Text := 'Door Open';
              PRINTER_STATUS_POWER_SAVE : Edit1.Text := 'Power Save
Mode';
              PRINTER_STATUS_WARMING_UP : Edit1.Text := 'Warming Up';
              PRINTER_STATUS_PAPER_OUT :  Edit1.Text := 'Out of Paper';
            End;
          Finally
            FreeMem( PrinterInfo, 1024 );
          End;
        End
      Else
        Begin
          Edit1.Text := 'NA';
          Edit2.Text := 'Cannot Open Printer: ' + PrinterName;
        End;
   Finally
     ClosePrinter( PrinterHandle );
   End;
End;