try putting this before your .fit to
..Zoom = False

--
Don Guillett
SalesAid Software

"gizmo" wrote in message
...
Hi guys,

I prepared the macro that should, among others, make the page fit 1 wide 1
tall.

Sub Landscape_full()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.FullName
.RightHeader = "&D" & Chr(10) & "&T"
.RightFooter = "&A"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.ScreenUpdating = False
End Sub

However, something goes wrong here.
If I go to the "Page setup" command/"Page" tab, the "Fit to..." field is
changed to the correct values, but the active button stays still with
"Adjust to".
Do you have any idea what should be added to the code?

Thanks a lot,
Gizmo