GetPrinter()

         Gets printer state

    Syntax:

         GetPrinter( [nPrinter] ) -> nStatus

         nPrinter : Printer Number. 0 = LPT1, 1 = LPT2...
                    Defect verify the printer 0

    Description:

         Determines if the printer is ready, without paper, if is off power
         or there is no printer.

    Return:

         A number indicating the printer state over the next list.


          0 READY       ->  Ready
          1 BUSY        ->  Not ready
          2 PAPER       ->  Without paper
          3 NOTHERE     ->  There's no printer
          4 LAN         ->  Remote printer
          5 ISOFF       ->  Not ready

    Example:

         nStatus := GetPrinter()
         If nStatus == 0 .Or. nStatus == 4
           Warning ( "Printer Ready" )
         EndIf