Vacuum Sealed wrote on 1/20/2011 :
Thank you Javed

The InputBox was Excellent as I didn't really need to physically input the
range as it automatically set it as soon as the InputBox opened.

But it halted on:
.PrintArea = Rng

So I changed it to:
.PrintArea = SS.UsedRange.Address

This help it step over that little hurdle.

Then everything with a (.) in the With Statement after that either had the
CPU In a continuous loop or just had to think real hard about what to do
next, and each time I hit <CTRLBreak it stopped at a different point within
the "With Statement".

I was wondering if it would be easy to use the .FitWide / .FitTall, but with
a slight twist using an "If" or "Case" to set it to the correct length.

eg.

If PrintArea.PrintPages = 1 then
.FitPageWide= 1
.FitPageTall = 1

Else
If PrintArea.PrintPages = 2 then
.FitPageWide= 1
.FitPageTall = 2

Else
If PrintArea.PrintPages = 3 then
.FitPageWide= 1
.FitPageTall = 3

Etc

End If

This would then hopefully remove the need for setting all the other (.)
parameters within as the sheet would already be setup to a certain point,
with the exception of the length of the range which would ultimately
determine how many pages would print.

Cheers
Mick

Did you know that setting you can FitPageWide and leave FitPageTall
empty so Excel handles the number of pages for you?

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc