PC_PRINTER_SET_FONT

Restriction:

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

Sets the current font for the printer.

Syntax:

call "PC_PRINTER_SET_FONT" using     printer-handle
                                     font-family-name
                           by value  font-size
                           by value  font-style
                           returning status-code

Parameters

printer-handle

Call prototype (see Key): cblt-x4-comp5

Picture: pic x(4) comp-5.

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:

`printer-handle`	The printer handle returned when the printer was opened.
`name-len`	The length of the font family name.
`name-text`	The family name of the font to be used (for example, Courier, Symbol, Times New Roman, Roman, and so on).
`font-size`	Point size of font.
`font-style`	Set of bits defining the required font style: 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