pagesetup.zoom problem !!!

[Olivier]

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

 

[Paul B]

Olivier, is this what you need?

Sub ajust()
With Worksheets("Sheet1").PageSetup
.Zoom = 65
End With
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **

 

[PO]

Olivier, if you omit "Worksheets("Sheet1").PageSetup.Zoom = True" all works
fine.
Why do you want to set "Zoom" back to be True when you don't need to?

Regards
PO

 

[Olivier]

Hi,

The goal of my function is to FIT to a number of calculated page and let
excel define the zoom value, and after "un set the page FIT" and use the
zoom value previoulsy retrieved.

But i can't retrieve a zoom value after zoom has been set to false.


Olivier