I am currently using WIN$PRINT to create documents from my ACUCOBOL programs. I need to be able to print portrait text on a landscape page. I know that I can change the font angle to achieve this and have managed to change the angle of the column but for some reason the text isn't printing. Has anybody ever tried this before? I have included the piece of code that sets the font, is there something that I am not doing correctly?
CALL "WIN$PRINTER" USING WINPRINT-SET-STD-FONT,
SET WFDEVICE-WIN-PRINTER TO TRUE.
MOVE COL-FONT-NAME(COL-NUM) TO WFONT-NAME.
MOVE COL-FONT-SIZE(COL-NUM) TO WFONT-SIZE.
MOVE 90 TO WFONT-ANGLE.
IF COL-FONT-BOLD-YN(COL-NUM) = 'Y'
MOVE 1 TO WFONT-BOLD-STATE
MOVE 0 TO WFONT-BOLD-STATE
IF COL-FONT-ITALIC-YN(COL-NUM) = 'Y'
MOVE 1 TO WFONT-ITALIC-STATE
MOVE 0 TO WFONT-ITALIC-STATE
IF COL-FONT-UNDERLINE-YN(COL-NUM) = 'Y'
MOVE 1 TO WFONT-UNDERLINE-STATE
MOVE 0 TO WFONT-UNDERLINE-STATE
CALL "W$FONT" USING WFONT-GET-FONT,
MOVE COL-FONT-HANDLE(COL-NUM) TO WPRTDATA-FONT.
CALL "WIN$PRINTER" USING WINPRINT-SET-FONT,
* set the colour
MOVE COL-FONT-COLOR-RED(COL-NUM) TO RGB-RED.
MOVE COL-FONT-COLOR-GREEN(COL-NUM) TO RGB-GREEN.
MOVE COL-FONT-COLOR-BLUE(COL-NUM) TO RGB-BLUE.
MOVE COLORREF TO WPRTDATA-TEXT-COLOR.
CALL "WIN$PRINTER" USING
Any assistance would be greatly appreciated.