|  CALL "WIN$PRINTER" USING WINPRINT-SET-STD-FONT                            WINPRINT-DATA                     GIVING returnCode | 
| 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. | ||
| 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. |