home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / fdata11.dms / in.adf / FDMacros / SetColumnWidth < prev    next >
Encoding:
Text File  |  1994-11-23  |  1.8 KB  |  72 lines
  1. /* --------------------------------------------- */
  2. /* Final Data ARexx Macro.                       */
  3. /* SetColumnWidth: This macro will adjust the    */
  4. /*  width of each selected column so that when   */
  5. /*  printed all of the data in the column will   */
  6. /*  be printed.                                  */
  7. /*                                               */
  8. /* $VER: SetColumnWidth 1.1 (23.11.94)           */
  9. /*                                               */
  10. /* This macro is useful because the font used on */
  11. /*  screen is proportional, whereas the printed  */
  12. /*  font is non-proportional (mono-spaced). This */
  13. /*  makes it difficult to know how wide to make  */
  14. /*  the column so that all the data will get     */
  15. /*  printed. Without this macro it's all done by */
  16. /*  trial and error.                             */
  17. /* --------------------------------------------- */
  18. OPTIONS RESULTS
  19.  
  20. SelectionInfo
  21. PARSE VAR RESULT selType fromCol toCol
  22.  
  23. IF ( selType = 'COLUMNS' ) THEN DO
  24.  
  25.     GetPrintPrefs PITCH DEVICE
  26.     PARSE VAR RESULT prefsPitch prefsDevice
  27.     pitch = 10
  28.     IF ( prefsDevice = 'Printer' ) THEN DO
  29.         SELECT
  30.             WHEN ( prefsPitch = 'Pica' ) THEN DO
  31.                 pitch = 10
  32.                 END
  33.             WHEN ( prefsPitch = 'Elite' ) THEN DO
  34.                 pitch = 12
  35.                 END
  36.             WHEN ( prefsPitch = 'Fine' ) THEN DO
  37.                 pitch = 15
  38.                 END
  39.             OTHERWISE DO
  40.                 END
  41.         END /* Select */
  42.     END
  43.  
  44.     NumRows
  45.     nrows = RESULT
  46.     IF ( nrows > 0 ) THEN DO
  47.  
  48.         DO c = fromCol TO toCol
  49.  
  50.             GetColumnName POSITION c
  51.             maxlen = LENGTH(RESULT)
  52.  
  53.             DO r = 1 TO nrows
  54.                 CellData c r
  55.                 len = LENGTH(RESULT)
  56.                 IF    ( len > maxlen ) THEN
  57.                     maxlen = len
  58.             END /* do to nrows */
  59.  
  60.             pixels = (maxlen * 8) + 1
  61.             IF ( pixels > 640 ) THEN
  62.                 pixels = 640
  63.             GetColumnID POSITION c
  64.             InitModifyColumn RESULT
  65.             DefineColumn WIDTH pixels
  66.             ModifyColumn
  67.  
  68.         END /* do to toCol */
  69.  
  70.     END
  71.  
  72. END