home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / prtsmp.zip / printing / select / 1001.0 next >
Text File  |  1993-11-07  |  448b  |  15 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.   PrinterQ = value||'.'||Driver
  10.   CALL VpWindow window,'CLOSE'
  11. End
  12. Else Do
  13.   response=VpMessageBox(window,'Printer Selection','Please select a printer before pressing OK.')
  14. End
  15.