home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / printer / prtmacro.lha / PrintToDisk next >
Text File  |  1990-07-13  |  2KB  |  40 lines

  1. /* Send parallel port output to spool file */
  2.  
  3. /*
  4.   This macro uses the "CMD" program provided with Workbench to
  5.   capture all data sent to the parallel port and send it to
  6.   the file "RAM:SpoolFile".
  7.  
  8.   If you also execute the CLI script "Spooler", you can get
  9.   background printing from ProWrite.  The Spooler script
  10.   looks for the file "RAM:SpoolFile", sends it to the printer
  11.   if found, and then deletes it.  To start the Spooler, type
  12.   the command "Run Execute Spooler" from the CLI, or put this
  13.   command in your Startup-Sequence file.  If you are using a
  14.   floppy-based system, you might also want to make the "If",
  15.   "EndIf", "Wait", "Skip", and "Lab" CLI commands resident,
  16.   since the Spooler script will be using them every 10 seconds.
  17.  
  18.   You can use this macro without the "Spooler" script if you
  19.   just want to print to disk.  For example, you could print
  20.   to disk using the LaserJet driver, copy the file to an IBM
  21.   disk, and print it on a LaserJet you have connected to a PC.
  22.  
  23.   After starting this macro, the "Print" requester will appear.
  24.   Select the print options you want and click on "OK".  The
  25.   file will be printed to the file "RAM:SpoolFile".  Do not
  26.   click on "Cancel" in the "Print" requester, or you will leave
  27.   the "CMD" program running.
  28. */
  29.  
  30. If ~Show(files, STDOUT) Then Call Open 'STDOUT','NIL:'
  31.  
  32. /*
  33.   Change the following path to where your "CMD" program is located.
  34.   If you want to print to a different file name or location, change
  35.   the "RAM:SpoolFile" item to the name and location you want.
  36. */
  37. Address command 'Run <NIL: >NIL: SYS:Utilities/CMD parallel RAM:SpoolFile'
  38.  
  39. Address 'ProWrite' Print
  40.