home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / FWARexx1.lha / FWMacros / Envelope.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-02  |  886 b   |  35 lines
  1. /* -------------------------------------------------------------*/
  2. /* Final Writer Arexx Macro - Envelope                 */
  3. /* ©1993 Mike Hartigan                        */
  4. /*                                */
  5. /* This macro will extract the current block and format and    */
  6. /* print an envelope.                                          */
  7. /*                                */
  8. /* -------------------------------------------------------------*/
  9.  
  10. options results
  11. 'extract'
  12. data = RESULT
  13. 'new'
  14. address command WaitForPort FinalW.2
  15. address FinalW.2
  16. 'SizeWindow 680 300'
  17. 'PageSetup PageType Custom'
  18. 'PageSetup Orient Tall'
  19. 'PageSetup Width 9'
  20. 'PageSetup Height 4'
  21. 'SectionSetup Top 1.75'
  22. 'SectionSetup Inside 3'
  23. 'type ' || data
  24. 'SelectAll'
  25. /* 'font SWOLFonts/Serif/Thames' */
  26. 'fontsize 16'
  27. 'spacing OneHalf'
  28. 'ShowMessage 1 0 "Feed envelope into printer" "" "" "OK" "Cancel" ""'
  29. IF RESULT = 1 then
  30.     DO
  31.     'PrintSetup Pages Range FromPage 1 ToPage 1'
  32.     'Print'
  33.     END
  34. 'Close force'
  35.