Page setup zoom false to true

**aprildu** · 01-02-2016, 05:14 PM

I want to set fit to one page first then to change to a specific zoom (e.g. 50%) if it's less than that after the fittoonepage. However it gives me an error when I tried to flip the zoom from false to true:

with sheet1.pagesetup
.zoom=false 
.fittopagestall=1
.fittopageswide=1

.zoom=true
if .zoom<50 then
   .zoom=50
   .fittopageswide=1
end if
end with

I got a runtime error 1004 of unable to set the zoom property. Many thanks!

April

**LJMetzger** · 01-02-2016, 08:50 PM

Answer deleted by LJMetzger. Was the correct answer to the wrong question.

**mikerickson** · 01-02-2016, 09:22 PM

Zoom is a property of the PageSetup object, but it has to be a number (percentage)

change that line to

.Zoom = 100

**aprildu** · 01-03-2016, 11:23 PM

Originally Posted by mikerickson

Zoom is a property of the PageSetup object, but it has to be a number (percentage)

change that line to

.Zoom = 100

Thanks for the reply! If I change .zoom=true to 100, however, the if (.zoom<50) condition will never be met? Also I think zoom doesn't have to be a number as it has no problem passing the zoom=false line. I googled and I found some threads about that's the way you actually can set the pagesetup to fittoonepage?

**mikerickson** · 01-04-2016, 12:51 AM

Originally Posted by aprildu

...I googled and I found some threads about that's the way you actually can set the pagesetup to fittoonepage?

The ObjectBrowser shows that .FitToPagesWide and .FitToPagesTall as properties of the PageSetup object.

https://msdn.microsoft.com/en-us/lib.../ff194365.aspx
https://msdn.microsoft.com/EN-US/lib.../ff194582.aspx

**LJMetzger** · 01-04-2016, 10:20 AM

aprildu said: it gives me an error when I tried to flip the zoom from false to true

In Excel VBA, False (numerical value 0) and True (numerical value -1) are really numbers masquerading as booleans. When you set the value to True, the negative number probably is the reason for the error, since a negative zoom does not make any sense in this space time continuum.

When you set the value to False (0) that is probably why the 'Fit to Page' works.

The following thread discusses the same topic and may help you: http://www.mrexcel.com/forum/excel-q...-property.html

Lewis

Page setup zoom false to true

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Page setup zoom false to true

Re: Page setup zoom false to true

Re: Page setup zoom false to true

Re: Page setup zoom false to true

Re: Page setup zoom false to true

Re: Page setup zoom false to true

Thread Information

Users Browsing this Thread

Similar Threads

What is best to use for helper cells 0 or 1, typed true or false or =true =false

[SOLVED] in this TRUE OR FALSE function, i want desired name instead of display true or false

[SOLVED] need help with page setup/print Setup on a worksheet

[SOLVED] Search for 2 true arguments and return true or false

Print setup - fit to page - zoom

[SOLVED] Function to return True/False if all are validated as True by ISNU

[SOLVED] Reverse false and combine with true true value

[SOLVED] Calculate page setup zoom value for 1 to 1 printing

Bookmarks

Bookmarks

Posting Permissions