home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_printto.edge < prev    next >
Text File  |  1995-07-10  |  534b  |  25 lines
  1. /*
  2. ** $VER: Menu_PrintTo.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Druckt die aktuelle Datei, fragt aber zunächst, wohin
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Standard-Druckausgabe auslesen */
  13. getenvvar _ge_printer
  14. dest=result
  15.  
  16. /* Benutzer fragen, ob diese korrekt ist */
  17. requeststring title """Drucken nach...""" default """"dest""""
  18. if rc==0 then do
  19.     
  20.     /* Ziel abspeichern, dann drucken */
  21.     dest=result
  22.     putenvvar _ge_printer """"dest""""
  23.     print
  24. end
  25.