Finding How many Pages wide the current print area is

I need to Find the number of pages wide that my current print area is. My document Lists Products in multiple branches and i have set the page breaks to display 3 groups of products per page, the problem I'm have is when I try to fix the width it forces 100% zoom and inserts automatic page breaks every 2 groups which doesn't let me display enough information on the page.

So I Guess what im trying to do is ensure all the information displayed between the page breaks that have been set by me is displayed on one page.
Any Help I could get with this would be greatly appreciated.

Thanks.

Maybe:

Please Login or Register  to view this content.

?

That's an Interesting Idea. Thanks

yudlugar, Thank you for the suggestion.. this is what came off it.


With ActiveSheet
Do While .VPageBreaks.Count > 0
.PageSetup.zoom = .PageSetup.zoom - 1
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalView
Loop
End With