This operation code retrieves information about a particular column on the page.
CALL "WIN$PRINTER" USING WINPRINT-GET-PAGE-COLUMN, COLUMN-POSITION, WINPRINT-COLUMN GIVING RESULT
|COLUMN-POSITION Numeric value||A numeric value indicating which column to retrieve.|
|WINPRINT-COLUMN|| Group item defined in
winprint.def as follows:
01 WINPRINT-COLUMN, SYNC. 03 WINPRINT-COL-START PIC 9(7)V99 COMP-5. 03 WINPRINT-COL-INDENT PIC 9(7)V99 COMP-5. 03 WINPRINT-COL-SEPARATION PIC 9(7)V99 COMP-5. 03 WINPRINT-COL-FONT HANDLE OF FONT. 03 WINPRINT-COL-UNITS PIC 99 COMP-X. 03 WINPRINT-COL-ALIGNMENT PIC X. 03 WINPRINT-TRANSPARENCY PIC 99 COMP-X. 88 WINPRINT-TRANSPARENT VALUE 1, FALSE 0. 78 WPRTUNITS-CELLS VALUE 0. 78 WPRTUNITS-INCHES VALUE 1. 78 WPRTUNITS-CENTIMETERS VALUE 2. 78 WPRTUNITS-PIXELS VALUE 3. 78 WPRTALIGN-NONE VALUE SPACE. 78 WPRTALIGN-LEFT VALUE "L". 78 WPRTALIGN-RIGHT VALUE "R". 78 WPRTALIGN-CENTER VALUE "C". 78 WPRTALIGN-DECIMAL VALUE "D". 78 WPRTALIGN-DECIMAL-SUPPRESS VALUE "S".
This is one of three op-codes that control the "output" by specifying the page layout. (This is similar to the DISPLAY-COLUMNS property of the LIST-BOX control.)
This operation takes two additional parameters. The first is a numeric parameter that indicates which column to retrieve. Columns are numbered from left-to-right on the printed page, starting with 1. The second parameter retrieves the current definition of the specified column and stores it in WINPRINT-COLUMN. This is useful if you want to change the characteristics of a particular column. You can use this operation to get the current settings, change the ones you want, and use WINPRINT-SET-PAGE-COLUMN to apply the changed settings.
The units used for the various measurements are determined by setting WINPRINT-COL-UNITS in the WINPRINT-COLUMN structure passed into the call. You should set this to the desired units before calling WIN$PRINTER. If WINPRINT-COL-UNITS contains an invalid setting, the units used by default are WPRTUNITS-CELLS.
In the following example, the first column is retrieved and its current indent is set to 3 characters.
MOVE WPRTUNITS-CELLS TO WINPRINT-COL-UNITS CALL "WIN$PRINTER" USING WINPRINT-GET-PAGE-COLUMN, 1, WINPRINT-COLUMN MOVE 3 TO WINPRINT-COL-INDENT CALL "WIN$PRINTER" USING WINPRINT-SET-PAGE-COLUMN, WINPRINT-COLUMN