PC_PRINTER_DEFAULT_FONT

Restriction:

This routine is not supported when CHARSET"EBCDIC" is in effect.

Sets the default font for all PC_PRINTER_ routines.

Syntax:

call "PC_PRINTER_DEFAULT_FONT" using     font-family-name
                               by value  font-size
                               by value  font-style
                               returning status-code

Parameters

font-family-name

Group predefined as cblt-printer-name containing:

01 cblt-printer-name       typedef.
  03 cblte-pn-name-length  cblt-x2-comp5. *> pic x(2) comp-5.
  03 cblte-pn-name         cblt-x1.       *> Occurs depending on
                                          *> cblte-pn-name-length.  pic x(n).

font-size

Call prototype (see Key): Numeric literal or cblt-x4-comp5

Picture: Numeric literal or pic x(4) comp-5.

font-style

Call prototype (see Key): Numeric literal or cblt-x4-comp5

Picture: Numeric literal or pic x(4) comp-5.

status-code

See Library Routines - Key.

On Entry:

`cblte-pn-name-len`	The length of the font family name.
`cblte-pn-name`	The family name of the font to be used (for example, Courier, Helvetica, Times, Symbol, Times New Roman, Roman, and so on).
`font-size`	Point size of font. If the point size is zero the font is reset to the system defaults.
`font-style`	The font-style set: Bit 15 The high-order 32-bits contain a printer character set as defined by Windows Bit 3 Bold Bit 2 Strikeout Bit 1 Underline Bit 0 Italic All remaining bits are reserved for future use and should not be set.

On Exit:

status-code

Printer Handling Routines Return Codes

Comments:

Default parameters are not validated until the default printer is opened.