Heck, if he wanted to increase Zoom until it was up to 40, all he'd have to do is say
Code:
If .Zoom < 40 Then .Zoom = 40
(I speak under correction, because I've never done anything with Zoom in VBA.) I think he's saying that he wants to keep on adding
pages until the zoom is at least 40%. I was staring at this earlier this evening — feeling sorry for him because none of us had answered him, I guess — and didn't know what to say because I don't know that adding pages (whatever that means) would affect the zoom.
In other words, he wants a loop like this:
Code:
Do While .Zoom < 40
.FitToPagesWide = .FitToPagesWide + 1
Loop
But would that affect the zoom? I don't know how that works.