PC_PRINTER_SET_PEN

Restriction:
  • This routine is not supported on UNIX platforms.
  • This routine is not supported when CHARSET"EBCDIC" is in effect.
Set the width, style and colour for lines and rectangles when drawn using a printer.

Syntax:

call "PC_PRINTER_SET_PEN" using
                          Printer-Handle
                          by value Pen-Width
                          by value Pen-Style
                          by value Pen-red
                          by value Pen-blue
                          by value Pen-green
end-call

Parameters:

  Using call prototype (see Key) Picture
pen-width cblt-x4-comp5 pic x(4) comp-5.
pen-width cblt-x4-comp5 pic x(4) comp-5.
pen-red cblt-x pic x
pen-blue cblt-x pic x
pen-green cblt-x pic x

On Entry:

  Value Meaning
pen-style 0 solid line
  1 dash
  2 dot
  3 dash, Dot
  4 dash, dot, dot
  5 invisible
pen-width width of line when drawing lines or rectangles
pen-red Value between 0 and 255 intensity of red
pen-green Value between 0 and 255 intensity of green
pen-blue Value between 0 and 255 intensity of blue