Printer_Status


Purpose   Returns the detailed status of the printer.

Decln.    Printer_Status:byte;

Returns   Byte

Remarks   The values returned by this function are:

          0    All is well!
          1    No paper
          2    Off Line
          3    Busy
          4    Unknown problem

Example

BEGIN
    CASE PRINTER_STATUS OF
    0 : PRINT_REPORT;
    1 : FWRITELN('ADD PAPER TO THE PRINTER, IDIOT');
    2 : FWRITELN('PRESS THE ONLINE BUTTON ON THE PRINTER');
    3 : FWRITELN('PRINTER IS BUSY, PLEASE WAIT');
    4 : FWRITELN('PRINTER ERROR. CHECK IT OUT!');
    END;