home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / CBM-PS32.LZX / PageStream3 / Scripts / PrintBorders.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-03-28  |  1.1 KB  |  43 lines
  1. /* $VER: PrintBorders.rexx 1.0 (22.01.97)
  2.    Copyright 1997 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6. TRACE OFF
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.    CALL ADDLIB('rexxsupport.library',0,-30)
  11.  
  12. ADDRESS 'PAGESTREAM'
  13.  
  14. 'newdocument Borders'
  15. 'newmasterpage "Default Master Page" 8.5i 11i single portrait'
  16. /* 'openwindow "View 1" page 1' */
  17. 'extension getborderslist 'stem
  18. count=result
  19.  
  20. page = 1
  21. x = 0
  22. y = 0
  23. do i=0 to count-1
  24.     extension drawborder x+.5 y+.5 x+4 y+3.5 borderstyle '"'stem.i'"' "page" page
  25.  
  26.     drawtextobj x+1 y+.25 infront "page" page
  27.     selecttext at x+1 y+.25 frontmost "page" page
  28.     'insert "'stem.i'"'
  29.  
  30.     x = x + 4
  31.     if x > 5 then do
  32.         x = 0
  33.         y = y + 3.5
  34.         if y > 8 then do
  35.             y = 0
  36.             page = page + 1
  37.         end
  38.     end
  39.  
  40. end i
  41.  
  42. printdocument copies 1 document "Borders" sides both scale actual output grayscale pictures on collate off reverseorder off printblank off printermarks off mirror off negative off
  43. closedocument force