Click above to get retro games delivered to your door ever month!

PRINTOK()

    How many times have you or your users had problems with printers not
    being ready?  Use this function and you might never have to deal
    with "Printer Not Ready.... Retry (Y/N)?" again.  Syntax:

    PRINTOK([<says>])

    Required Parameters

    None

    Optional Parameter

    <says> may be of any type.  This should be passed if the print
    routine consists of "?" and "??" rather than @...SAYs.  If this
    parameter is passed and the printer is ready, PRINTOK() will SET
    PRINT ON rather than SETting DEVICE TO PRINT. If this parameter is
    not passed, it will SET DEVICE TO PRINT as usual.

    PRINTOK() returns a logical value.  If the printer is ready, it will
    return True (.T.) and either SET the DEVICE TO PRINT or SET PRINT
    ON, depending on whether the optional parameter was passed or not.
    If the printer is not ready, it will alert the user.  If the user
    escapes from the function, it will return False (.F.).

    Sample usage

    IF PRINTOK()           
       DO report           
       SET DEVICE TO SCREEN
    ENDIF                  

    (with optional parameter)
    IF PRINTOK(.T.)                     
       ? fname + ' ' + lname            
       ? address                        
       ? city + ', ' + state + ' ' + zip
       SET PRINT OFF                    
    ENDIF