Setting the font angle within a column using WIN$PRINT

Good day,

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?

DESTROY COL-FONT-HANDLE(COL-NUM).              
                                                                  
CALL "WIN$PRINTER" USING WINPRINT-SET-STD-FONT,
        WINPRINT-DATA.                         
                                                                        
INITIALIZE WFONT-DATA.                        
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   
ELSE                                          
        MOVE 0          TO WFONT-BOLD-STATE   
END-IF.                                       
IF      COL-FONT-ITALIC-YN(COL-NUM) = 'Y'     
        MOVE 1          TO WFONT-ITALIC-STATE 
ELSE                                          
        MOVE 0          TO WFONT-ITALIC-STATE 
END-IF.                                      

IF      COL-FONT-UNDERLINE-YN(COL-NUM) = 'Y'        
        MOVE 1          TO WFONT-UNDERLINE-STATE    
ELSE                                                
        MOVE 0          TO WFONT-UNDERLINE-STATE    
END-IF.                                             
                                                    
CALL "W$FONT" USING WFONT-GET-FONT,                 
        COL-FONT-HANDLE(COL-NUM), WFONT-DATA.       
                                                    
MOVE COL-FONT-HANDLE(COL-NUM)   TO WPRTDATA-FONT.   
                                                    
CALL "WIN$PRINTER" USING WINPRINT-SET-FONT,         
        WINPRINT-DATA                               
        GIVING FONT-RETURN-VAL.                      
                                                    
* set the colour                                              
INITIALIZE WPRTDATA-TEXT-COLOR.                     
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.
PERFORM CALC-COLORREF.                              
MOVE COLORREF TO WPRTDATA-TEXT-COLOR.

CALL "WIN$PRINTER" USING      
        WINPRINT-SET-TEXT-COLOR
        WPRTDATA-TEXT-COLOR.  

Any assistance would be greatly appreciated.

Thank you!

Natalie.