isCOBOL Evolve : Appendices : Library Routines : WIN$PRINTER : WINPRINT-GET-NO-PRINTERS
WINPRINT-GET-NO-PRINTERS
The WINPRINT-GET-NO-PRINTERS function retrieves the number of printers installed on the host system.
Syntax:
 CALL "WIN$PRINTER" USING WINPRINT-GET-NO-PRINTERS
                          WINPRINT-SELECTION
                   GIVING returnCode
Parameters:
WINPRINT-GET-NO-PRINTERS
Constant
 
WINPRINT-SELECTION
Group Item
Structure that receives the information. This group item, defined in isprint.def, has the following structure:
 
01  winprint-selection.
    03 winprint-name             pic x(80).
    03 winprint-port             pic x(80).
    03 winprint-driver           pic x(80).
    03 winprint-drv-version      signed-int.
    03 winprint-no-of-printers   signed-short.
       88 wprterr-no-printers    value -1.
    03 winprint-is-default       signed-short.
       88 wprt-is-not-default    value 0.
       88 wprt-is-default        value 1.
    03 winprint-copies           signed-short.
    03 winprint-orientation      signed-short.
    03 winprint-quality          signed-short.
    03 winprint-curr-orientation signed-short.
    03 winprint-curr-copies      signed-short.
 
Note - members not mentioned below are not used by this function.
 
winprint-no-of-printers
It is the number of available printers.
Return code:
returnCode can be any signed numeric data item and provides additional information:
1
Operation successful.
WPRTERR-UNSUPPORTED
The WIN$PRINTER library routine is not supported.
WPRTERR-BAD-ARG
The WIN$PRINTER library routine has been called with bad parameters.