home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / cmdcopy.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-08-30  |  380 b   |  18 lines
  1. /* Print section of CMDprint */
  2.  
  3. trace r
  4. copies = getclip('CMDcopies')
  5. if copies = "" then exit
  6. tempfile = getclip('CMDtempfile')
  7. if tempfile = "" then exit
  8. pport2 = getclip("CMDpport2")
  9. if pport2 = "" then exit
  10.  
  11. address command
  12. do i = 1 to copies
  13.     if show('P',"PPAGEAREXX") then call ppm_ShowStatus("Printing copy number "i" ...")
  14.     copy '"'tempfile'"' pport2
  15.     end
  16.  
  17. exit
  18.