Hello - I thought I posted this question earlier today, but now I
cannot find it. My problem concerns formatting a page to print.

The page has multiple columns, and it is not possible to know how wide
the columns will be in advance - that is to say, each time the program
is used, the column widths are set automatically to agree with the
width of the data.

Then the result is printed. If there are more than a pre-defined
number of columns, the macro does a special format for page two, and
the printing appears on two pages for clarity

I would like to use the entire sheet of paper on each page so the
print is as large as practical. I wrote a macro to reformat the pages
for 2 sheets under certain conditions, and it works fine. However, I
cannot figure out how to use the 'fit to page' option. I would like
to have it in the macro so that the printout will expand as much as
practical to fill each of the two pages.

However, whenever I add the 'fit to page' statement to the program,
the page break disappears and does not function, 'even if I am
specifying print to 2 pages.' Here is part of the code;

ActiveSheet.PageSetup.PrintArea = "$D$2:$CC$246"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 2
.FitToPagesTall = 1

Forgive me if I have double posted, but I do need some help.