Setting Sheet to Print 1 Page When Rows Grouped & Multiple Ungrouped

Thanks in advance. I have a trending income statement I created with grouped rows including the detail. When grouped it shows the summary of the income statement.

Is there a way to set the page to print all one 1 page when the rows are grouped and also everything when rows are ungrouped?

I currently have headers to repeat at the top and set to print the consolidated view when rows are grouped. However, if trying to print everything ungrouped it prints 300 rows on 1 page which obviously makes for very small font size.

When setting the page layout to print Width "1 page" and Length "Automatic" it looks great print, but when grouping the rows it then prints 4 pages with only a few lines on each page due to the page breaks.

Any help would be very appreciated.

Additionally, if there is way to print a multiple headers if it printing continues on the next page would be excellent. For example, each section of Costs has a header with the detail below it. The rows for each section is grouped. When grouped only the subtotal appears. It would be awesome if the header for each subsection (along with the first few rows at top set to repeat print for the report title/header) could be printed if the detail for that grouping continued to print on the following page appeared first before continuing with the detail for that subsection.

Awesome. Works great. Except it works perfect on one sheet of workbook but not on the other. The one that doesn't seem to wanna work probably because of something I'm doing screwing it up will look great if all rows are ungrouped printing 6 pages. However, when grouped it prints 6 pages but with all the page breaks. I don't understand why it works as it should on one tab but not the other right next to it.

Any thoughts on what I'm doing to mess it up?

I made sure to change all the settings on the one not printing correctly to match the sheet that is printing correctly such as page layout to "Automatic" but to no avail...maybe I'm missing something.

It prints now but I'm receiving ERROR message Microsoft Visual Basic Run-time error '6' Overflow. Any idea?

Error Message.PNG

It still prints after I click "End" but I'm confused.

There are 2 macros. See pic where 1st one ends and 2nd begins the one you provided.

Macro_Print.PNG