print options?

Ok

I figured out how to finally add page breaks. Now my question is this. The excel document that I have generated through code, is wider than an actual page. How do I specify that I want to print the entire width of the page?

Note that i CANT do this

VB Code:

With .ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = totalPages
End With

because this completely overrides any page breaks that I have entered through code and completely misaligns everything.

Is there any way to find out how much you would need adjust the size of the print area similar to that of the print option "Adjust to __ % of actual size" so that everything fits 1 page wide by however many pages long.

try setting both to 0

uh what would that do????

ANyways that generates an error

What I meant by saying I cant do that is that those lines can't be in there at all. But if i take those lines out I get double the pages I want because some of the worksheet gets cut off on the right.

I guess I can explain what i need more clearly....

I know for example that in most cases if I add this line everything works fine

VB Code:

.Zoom 70 'Which zooms to 70% of the screen size

But, in some cases the page will be slightly wider than this. How can I be certain that 70% will display it all?

I need some way to determine which zoom value will display the entire width of the print area.

This does not sound easy does it :-)

Thanx