1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15



 Excel
WITH oSheet.PageSetup
        * Fit to Page
        .Zoom = .F.	      
        .FitToPagesWide = 1   
        .FitToPagesTall = 1   
ENDWITH

*------------------------------------

* Word
oWord.ActiveDocument.FitToPages()