home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / EDG-TRAP.DMS / in.adf / TrapFax / TFaxPrinter < prev    next >
Encoding:
Text File  |  1993-08-14  |  856 b   |  30 lines
  1. .Key NOREQ/S
  2. .Bra {
  3. .Ket }
  4. ; TrapFax printer flipper
  5.  
  6. if "$TFaxPrinter" EQ "Fax"
  7.   sys:prefs/printer from env:trapfax/printer.prefs use
  8.   sys:prefs/printergfx from env:trapfax/printergfx.prefs use
  9.   setenv TFaxPrinter Standard
  10. else
  11.   if not exists env:sys/printer.prefs
  12.     sys:prefs/printer use
  13.   endif
  14.   if not exists env:sys/printergfx.prefs
  15.     sys:prefs/printergfx use
  16.   endif
  17.   Copy Env:Sys/Printer(%|Gfx).prefs Env:TrapFax QUIET
  18.   sys:prefs/printer from sys:prefs/presets/Fax-Printer.pre use
  19.   sys:prefs/printergfx from sys:prefs/presets/Fax-PrinterGfx.pre use
  20.   setenv TFaxPrinter Fax
  21. endif
  22.  
  23. IF NOT "{NOREQ}" EQ "NOREQ"
  24.   if exists c:RequestChoice
  25.     requestchoice >NIL: "TFaxPrinter" "Printing is now directed to the*N$TFaxPrinter printer driver." "OK"
  26.   else
  27.     echo "Printing is now directed to the $TFaxPrinter printer driver."
  28.   endif
  29. ENDIF
  30.