Fit to Page in Excel and Word

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()