Macro To Set Print area to a max of 50 (plus Header rows) on filtered information

That seems to code seems to hide /unselected for printing everything after the 56 mark. I need to be able to print all the filtered information but I need only 50 plus the 4 rows header per page.

I tried the macro as a stand alone after all filtering was applied and for some reason it is still not looping so I have printable data 54 rows (50 rows of data plus headers) per page it is still un-selecting information after the 56 mark. Im not trying to say it doesn't make sense, it just doesn't seem to be looping as intended

I tried it on your sheet after I did some filter and it worked fine.

It shouldn't "unselect" anything, since it doesnt select anything anywhere.
The only thing it does is say "from row 7 down, count the visible row and when at 50, make that the printable area".

Having said that, I just see your addition "per page" - so basically you want to print all data, but 50 rows per page
So it can be multiple pages?

In that case your request is not "I want to print 50 rows and the 4 header rows" , but your request is:

"I want to print pages with all visible data after filtering, but each printed page should have the 4 header rows and 50 rows with data, repeating until we reach the end of data".
Please confirm if that's actually what you're looking for...

Yes that is exactly what I need it to do... and I wanted to change the title of this after I posted and it doesn't seem to have that option on this forum.

I updated the first post in hopes that it clarifies what I need the macro to do Thank you for pointing out that I was very unclear with my first post/title of the thread

so I added the sheet name to the macro and it still has the same run-time error. The sheet itself is filtered before I try this macro and it still error out. Not to sure whats causing this to error out.... I was wondering if x need to be expressed with Dim in the macro at all?

Please Login or Register  to view this content.

x should have been dimmed, but that's not the cause of the error.
It errors when the first row (7) is invisible - should've seen that yesterday, sorry.

Change as follows:

Please Login or Register  to view this content.

Your coding seems to work, but I was wondering it may setting the print area to a default area of A3:NH245 and then using pagebreaks to get the desired effects of 54 rows per page (4 header rows plus 50 rows

If you set pagebreaks, you won't get the header rows duplicated on each page.
That's why I went to way of setting the printarea for 4 top rows + 50 visible rows instead.

Would pagebreaks work if I already set Print Titles under the Page Setup?

At this point I think I could deal with it not having the header rows on every page, but I would still need the macro to count 50 per page. It should only give 2 pages for any given time unless the end user decides to print the entire unfiltered sheet.