pagesetup.zoom problem !!!

  • Thread starter Thread starter Olivier
  • Start date Start date
O

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
 
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 **
 
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
 
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
 
Back
Top