WINPRINT-SET-STD-FONT
The WINPRINT-SET-STD-FONT selects one of the pre-defined fonts to be used by the subsequent WRITE statements.
A printer is required for this function to work correctly.
Syntax:
 CALL "WIN$PRINTER" USING WINPRINT-SET-STD-FONT 
                          WINPRINT-DATA 
                   GIVING returnCode
Parameters:
WINPRINT-SET-STD-FONT
Constant
 
WINPRINT-DATA
Group Item
Structure that contains the information to be passed to the function. This group item, defined in isprint.def, has the following structure:
 
01  winprint-data.
    03 wprtdata-set-std-font.
       05 wprtdata-std-font         pic x comp-x.
       05 filler                    pic x(21).
wprtdata-std-font
Specifies the font to be used by the subsequent WRITE statements. Valid values are:
WPRTFONT-DEFAULT
It is the default printer font.
WPRTFONT-COURIER-12
It uses a 12-point TrueType Courier font.
WPRTFONT-COURIER-12-COMP
It uses a 12-point TrueType Courier font and rescales it so that at least 132 columns of print will fit on a page.
WPRTFONT-COURIER-10
It uses a 10-point TrueType Courier font.
WPRTFONT-COURIER-10-COMP
It uses a 10-point TrueType Courier font and rescales it so that at least 132 columns of print will fit on a page.
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.