home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / Edge1721.DMS / Edge1721.adf / Edge_Rexx.lha / Menu_PrintTo.edge < prev    next >
Encoding:
Text File  |  1993-11-09  |  473 b   |  24 lines
  1. /*
  2. ** $VER: Menu_PrintTo.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Print the file but first ask where to
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* where is the default print destination */
  12. getenvvar _ge_printer
  13. dest=result
  14.  
  15. /* ask the user if this is correct */
  16. requeststring title """Print to...""" default """"dest""""
  17. if rc==0 then do
  18.     
  19.     /* store the destination, then print */
  20.     dest=result
  21.     putenvvar _ge_printer """"dest""""
  22.     print
  23. end
  24.