Hi everybody,

I have a problem with this little function, the goal is to apply a zoom
value instead a "FitToPages" value.

When i want to setup the zoom propertie to "True" (this propertie was setup
to false to apply the fit value) i received an error message : "Unable to
define the Zoom propertie for the class PageSetup."
Help !!!!

Here is my function :

Sub ajust()
With Worksheets("Sheet1").PageSetup
.Zoom = False
.FitToPagesTall = 2
.FitToPagesWide = 1
End With
Worksheets("Sheet1").PageSetup.Zoom = True
End Sub

Thanks in advance for your help.

Olivier