Try to add

    .Zoom = 0 

>Given the following code
>

>with oExcel.ActiveSheet.PageSetup
>    .LeftMargin = .35
>    .RightMargin = .35
>    .FitToPagesWide = 1
>    .FitToPagesTall = 1
>endwith     	
>

>
>Why doesn't the fit to pages function work? My sheet is still spread over 4 pages.
>There is no error, just nothing seems to be different.
>
>Thanks