Page Break while sizing to fit page
 

I would like to add a page break statement into my macro, but I would
also like the pages, once the page break has been defined, to expand
to fill the available space on the paper. There is no easy way to
know in advance how wide the data columns will be (they adjust
depending on the data entered). I guess I could calculate the total
width and force the page width using a statement like this and then
manually define the page width and not use the 'Fit to Page' option,
but it seems like a memory-intensive brute force way to do it. I
think I could do it as follows to measure the column width and then
somehow use that info to set the page size, but it just does not seem
like a good way to do it. Perhaps it is the only way, though.

Totalwidth = Range("D2:CD2").Width
Range("B247").Formula = Totalwidth

Right now I have tried to define the pages as 2 pages wide as below,
but when I add the page break point and add in the 'Fit to page" it no
longer works. The Fit To Page command it seems to over-ride the page
breaks, even if I add the statements -

With ActiveSheet.PageSetup
.FitToPagesWide = 2
.FitToPagesTall = 1

Is there any way to do this? Once again, I really appreciate the help.