(LOGO.JPG) Python for OpenVMS

(go to: table of contents, index, list of vms_smg, prev: POP_VIRTUAL_DISPLAY, next: PUT_CHARS)


PRINT_PASTEBOARD - Print Pasteboard Using a Print Queue

Print the contents of the specified pasteboard on a line printer. Note that the entry number of the print job is NOT returned!

Format:

    None = vms_smg.print_pasteboard (pasteboard_id, \
                  [queue_name], [copies], [form_name])
Returns:

None

Arguments:

pasteboard_id
Identifier of the pasteboard to be printed.
queue_name
Queue name. If omitted, the default is SYS$PRINT.
copies
Number of copies to print.
form_name
Name of the form to use when printing. If omitted, the default is "DEFAULT".
Examples:
>>> import vms_smg
>>> import vms_smgdef

>>> # create a new DECwindows terminal using SMG
>>> status, pasteboard_id, number_of_pasteboard_rows, \
... number_of_pasteboard_columns, type_of_terminal,   \
... device_name = vms_smg.create_pasteboard           \
...   (None, vms_smgdef.SMG_M_WORKSTATION)
>>>

>>> # create a virtual display
>>> status, vtdpy1 = vms_smg.create_virtual_display \
...         (5, 10, vms_smgdef.SMG_M_BORDER, None, None)
>>>

>>> # paste the virtual display
>>> status = vms_smg.paste_virtual_display \
...          (vtdpy1, pasteboard_id, 3, 5, None)
>>>

>>> # put some text in the display
>>> status = vms_smg.put_chars (vtdpy1, 'Line1Line1Line1', 1, 1)
>>> status = vms_smg.put_chars (vtdpy1, 'Line2Line2Line2', 2, 2)
>>> status = vms_smg.put_chars (vtdpy1, 'Line3Line3Line3', 3, 3)
>>>

Screen layout, file: VMS_SMG_015.JPG

(picture VMS_SMG_015.JPG)

>>> # print the pasteboard to queue "HERE_PRINT"
>>> vms_smg.print_pasteboard (pasteboard_id, "HERE_PRINT")
>>>

$ show queue /FULL HERE_PRINT
Printer queue HERE_PRINT, stopped, on HERE::NPA0:, mounted form
  DEFAULT /BASE_PRIORITY=4 /DEFAULT=(FEED,FORM=DEFAULT)
  /OWNER=[G1,SYSTEM] /PROTECTION=(S:M,O:D,G:R,W:S)

  Entry  Jobname      Username  Blocks  Status
  -----  -------      --------  ------  ------
     30  SMGPBD       ZESSIN         4  Pending (queue stopped)
         Submitted  2-SEP-2000 20:01 /FORM=DEFAULT /PRIORITY=100
         File: _$99$DKA100:[USER.ZESSIN]SMGPBD.LIS;1 /DELETE
$!
$ type _$99$DKA100:[USER.ZESSIN]SMGPBD.LIS;1

   +----------+
   |Line1Line1|
   | Line2Line|
   |  Line3Lin|
   |          |
   |          |
   +----------+

[ 15 more empty lines omitted ]
$

(go to: table of contents, index, list of vms_smg, prev: POP_VIRTUAL_DISPLAY, next: PUT_CHARS)

10-SEP-2000 ZE.