Catching a DEVICE_ERROR?

[antonis01@in.gr (Tony Danezis)]

Hello..

I am looking for assistance on how to catch a DEVICE_ERROR when
printing to LPT1. My Code seems to be correct and I print fine when
the printer (HP laserjet 1200)is ON, but the exception is not raised
when the printer is unplugged or not powered on.
(Using win 2000 and The GNAT Integrated Environment version 3.14a1)

thanks for any insight and assistance
Snippet of code follows:

with ADA.IO_EXCEPTIONS; use ADA.IO_EXCEPTIONS;
with TERMINAL;          use TERMINAL;
with Ada.Text_IO;       use Ada.Text_IO;

procedure Printer_Test is
  use Text;
  PrFile : TEXT.File_Type;

begin
  Create (File => PrFile, Mode => Out_File, Name => "LPT1:");
  Put_Line (File => PrFile, Item => "Here is a line for the printer");
  New_Page (File => PrFile);
  Close (File => PrFile);

  Put_Line("DONE CODE");

   exception
      when Text.Status_Error =>
        Text.Put_Line("Status_Error");

      when Text.Mode_Error   =>
        Text.Put_Line("Mode_Error");
  
      when Text.Device_Error =>
        Text.Put_Line("Device_Error");

      when others =>
        Text.Put_Line("Unknown_Error");

end Printer_Test;