Fit to Page in Excel and Word

Submitted by Sergey on January 1, 2008 - 20:47

This is sample code. Add error handling and adjust to your requirements as necessary.

 Excel
WITH oSheet.PageSetup
        * Fit to Page
        .Zoom = .F.	      
        .FitToPagesWide = 1   
        .FitToPagesTall = 1   
ENDWITH
 
*------------------------------------
 
* Word
oWord.ActiveDocument.FitToPages()
No votes yet