isCOBOL Evolve : Appendices : Library Routines : WIN$PRINTER : WINPRINT-SET-FONT
WINPRINT-SET-FONT
The WINPRINT-SET-FONT function sets the font to be used by the subsequent WRITE statements.
Syntax:
 CALL "WIN$PRINTER" USING WINPRINT-SET-FONT 
                          WINPRINT-DATA
                   GIVING returnCode
Parameters:
WINPRINT-SET-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-font.
       05 wprtdata-font             handle of font.
 
wprtdata-font
Specifies the font handle to be used by the subsequent WRITE statements. It should be previously loaded with the WFONT-GET-FONT or the WFONT-GET-CLOSEST-FONT function.
Do not destroy this handle before closing the print file.
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.
Warning:
For fonts to work correctly, the -P PDF and -P PREVIEW "Save" feature require setting either the FONT_FOLDER or FONT_FOLDER_EMBED printer attributes using WINPRINT-SET-ATTRIBUTE opcode. For example:
call "win$printer" using winprint-set-attribute
                  "FONT_FOLDER_EMBED", "C:\WINDOWS\fonts"