PRINTSEND()
 Sends characters directly to a printer
------------------------------------------------------------------------------
 Syntax

     PRINTSEND(<cCharacter|nCharacter>, <nPrinter>)
        --> nNumber

 Arguments

     <cCharacter|nCharacter>  Designates as a code for an individual
     character in the range of 0 to 255, or as a string.

     <nPrinter>  Designates the printer where output occurs.  The values
     1 to 3 correspond to devices LPT1 to LPT3.

 Returns

     PRINTSEND() returns a value that corresponds to the number of characters
     that could not be sent to the printer.  If 0 is returned, all characters
     were sent to the printer.

 Description

     Use PRINTSEND() when you want to send one or more characters to a
     printer, and switching from SET PRINTER and SET CONSOLE is undesirable
     and costly as an option.  This function allows you to send characters
     (and special characters) to a printer at any time.

 Examples

     .  Send formfeed characters to the printer, when the printer is
        not at top of form:

        IF .NOT. TOF()
           PRINTSEND(12)         //  Output CHR(12)
        ENDIF

     .  Send a character string:

        PRINTSEND("Hello")