home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / prtsmp.zip / printing / select / 1003.0 < prev    next >
Text File  |  1993-11-07  |  441b  |  13 lines
  1. Arg window self
  2.  
  3. /* Get index of first selected value  List Box */
  4. index=VpGetIndex(window,1000,'SELECTED',0)
  5. If (index <> 0) Then Do
  6.   Driver = RxListBoxItemHandle(window, 1000, index)
  7.   /* Get item value  List Box */
  8.   value = VpGetItemValue(window,1000)
  9.   Call RxQueueJobProperties value||'.'||Driver
  10. End
  11. Else Do
  12.   response=VpMessageBox(window,'Printer Selection','Please select a printer before pressing Job Properties.')
  13. End