This operation code returns information about the currently selected printer.
CALL "WIN$PRINTER"
    USING WINPRINT-GET-CURRENT-INFO, WINPRINT-SELECTION
    GIVING RESULT
               	 | WINPRINT-SELECTION | Group item defined in 
                              					 winprint.def as follows: 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.
      88 WPRT-HAS-NO-COPY              VALUE 1.
   03 WINPRINT-ORIENTATION             SIGNED-SHORT.
      88 WPRT-HAS-NO-LANDSCAPE         VALUE 0.
      88 WPRT-HAS-LANDSCAPE            VALUE 1.
   03 WINPRINT-QUALITY                 SIGNED-SHORT.
   03 WINPRINT-CURR-ORIENTATION        SIGNED-SHORT.
   03 WINPRINT-CURR-COPIES             SIGNED-SHORT.
 | 
A printer is considered selected if it has performed a print using -Q <printername or -P SPOOLER, or if WIN$PRINTER has executed using any of the WINPRINT-DATA op-codes. If no printer is selected, this operation will return information about the Windows default printer.
The printer may be open or closed to perform these functions. There is no need to reset any of these functions. WINPRINT-SELECTION should be initialized prior to use. WINPRINT-GET-CURRENT-INFO has the following values:
| WINPRINT-NAME | Returns the name of the currently selected printer. | 
| WINPRINT-PORT | Specifies the printer port (or UNC address) of the currently selected printer. | 
| WINPRINT-DRIVER | Specifies the printer driver name. | 
| WINPRINT-DRV-VERSION | Specifies the version number of the printer driver (vendor-specific). | 
| WINPRINT-NO-OF-PRINTERS | Specifies the number of the currently selected printer in the runtime's internal list. | 
| WINPRINT-IS-DEFAULT | Determines if the printer is the Windows print spooler default printer. If yes, the returned value is WPRT-IS-DEFAULT. | 
| WINPRINT-COPIES | Returns the number of copies the printer is capable of producing. Typically this number is 99 or 999. | 
| WINPRINT-ORIENTATION | Determines if the printer supports landscape orientation. If yes, the return value is WPRT-HAS-LANDSCAPE. | 
| WINPRINT-QUALITY | Returns the current setting for the varying grades of print quality. This value applies to dot-matrix printers. Most inkjet and laser printers do not support this method of determining the level of print quality. | 
| WINPRINT-CURR-COPIES | Returns the current default value for the number of copies to print. |