vba to print the last 3 pages of a worksheet or less if document doesn't exceed 3 pages

Hello, I found the following code online to print an excel worksheet starting with printing the last page first to the first initial page. So not sure this can be edited to do what I need or not but this is what I'm hoping to accomplish. I have a worksheet that has code that will filter automatically notes based on an account number. These notes are listed by date and can range from 1 page to 15 or more. Ideally, I would like a macro when activated to only print the last 3 pages of these notes or if if there aren't 3 pages to print then those remaining pages; i.e. 1 or 2 pages. So for further clarification if there would be 11 pages to print I would only want pages 11, 10, & 9 to print out in that order. If the filtered data would only result in 2 pages to print then it would just print page 2 and page 1. If filtered data has only 1 page to print it would just print the 1 page. I would also want this to print out in black and white so no conditional formatting colors should be seen when printed if possible. Any assistance would be greatly appreciated.

Code I found online:

Please Login or Register  to view this content.

This code will loop you through the last three sheets or two or one whatever the case may be if there are less than three.

The debug.print statement will display the sheet name it's just so you can see the sheets that it's looping through and can be removed later.

It uses the immediate window which can be opened by Control + G.

I don't have much experience in printing with VBA perhaps someone else can help you if this isn't enough.

Please Login or Register  to view this content.

If I read it right, you ask for pages of 1 sheet to print while skywriters code refers to sheets.

But you have to supply more information.
If you say the last three pages from a filtered area, how do you determine the pages? If you set a print range and do a print preview, usually the last page is not a full page.
Do you consider this to be a page on its own? Or do you want the last page to be a full page of data like the other two.
If so, you'll have to go by amount of rows per page and that varies, setups dependent.
If your result is 50 rows per full page you want to print the last 150 rows for 3 pages. But this is only valid if all the rows are set to the same height, which we don't know if that is indeed so.

If I read it right, you ask for pages of 1 sheet to print while skywriters code refers to sheets.

Got me on that one I was equating them in my head.

Happens to the best of us as you just proved!!!!

You don't need to quote. The same data is a couple posts up. Just clutter we don't want/need.
If important, give the post number and maybe poster's name.

Try

Please Login or Register  to view this content.

Make sure you review jolivanes code in post#8 if you haven't seen it.

I found that same code you did and I did a little playing around.

I can't say it's always the case but apparently you can count the horizontal page breaks and add 1 to them and know how many pages your printer is going to come up with if you use print preview.

So I played around a little bit and came up with the below code and I will include the workbook.

I can't say what other code would be needed because I don't currently have a printer so I print to pdf and on each loop it asks me for the file name, but it did print them out in reverse order.

jolivanes code is probably what you want but I thought I would include this for fun.

Please Login or Register  to view this content.

My pleasure, thanks for the rep. points.