home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / FINCAL2.DMS / in.adf / FCrexx.lha / Print_Jobs_Default_Size.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-03-04  |  713 b   |  34 lines
  1. /* FinalCalc script to scan though the print job list and 
  2.    change the paper size to default */
  3.  
  4. options results
  5. shutdown = 0
  6. count = 0
  7.  
  8. do until shutdown
  9.     if count = 0 then job first
  10.     else         job next
  11.  
  12.     jobname = result;
  13.  
  14.     if jobname='' then
  15.         shutdown = 1
  16.     else do
  17.          /* Here we do whatever we want to the print job.. */
  18.          /* Note that we put double-quotes around the job */
  19.          /* name to protect it in case it has spaces. */
  20.  
  21.         job '"'jobname'"' defsize on
  22.         count = count+1
  23.     end
  24. end
  25.  
  26. if count > 0 then do
  27.     text = "Changed" count "print jobs to default paper size."
  28.     request '"'text'"'
  29.     end
  30. else
  31.     request '"No print jobs found."'
  32.  
  33. exit
  34.