home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / prtsmp.zip / printing / print / 1000.0 next >
Text File  |  1993-11-07  |  664b  |  22 lines
  1. Arg window self
  2.  
  3. /* Set item value  Text */
  4. CALL VpSetItemValue window,1008,'Printing in progress please wait...'
  5.  
  6. If PrinterQ = "" Then Do
  7.   Call RxQueueList 'queues.'
  8.   def = queues.default
  9.   PrinterQ = queues.def || '.' || queues.def.drivername
  10. End
  11. Call RxRead 'dummy.', SaveFile
  12.  
  13. /* Get item value  Text */
  14. dummy.jobname = VpGetItemValue(window,1003)
  15. /* Get item value  Spin Button */
  16. dummy.copies = VpGetItemValue(window,1005)
  17. /* Get item value  Spin Button */
  18. dummy.priority = VpGetItemValue(window,1007)
  19.  
  20. Call RxQueueWriteStem PrinterQ, 'dummy.'
  21. response=VpMessageBox(window,'Printing','Printing complete.')
  22. CALL VpWindow window,'CLOSE'