Problem:

Do the PC_PRINTER routines allow two or more fonts on the same line?

Resolution:

It should be perfectly possible to have a number of fonts on the same line.  This is simply achieved by calling the PC_PRINTER_SET_FONT before you send the line data.

A new line is forced when you send a CR/LF at the end of your text data.  So, you can do the following:

CALL PC_PRINTER_OPEN

CALL PC_PRINTER_SET_FONT - Courier New 10 Point

CALL PC_PRINTER_WRITE    - "Sample" note that we do not send a CR/LF

CALL PC_PRINTER_SET_FONT - Arial 16 Point

CALL PC_PRINTER_WRITE    - "Text" CR/LF

CALL PC_PRINTER_CLOSE

The CR/LF can be added via the following WORKING-STORAGE structure:

01  ws-line-data.

    03  ws-line-text      pix x(20).

    03  ws-line-crlf      pic x(2) value x"0D0A".