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:

Sub ReversePrint()
Dim xPages As Long
xPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = xPages To 1 Step -1
    Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
'I found this for the black white portion but not sure if this is correct spot to put it?
Worksheets("Note").PageSetup.BlackAndWhite = True
End Sub

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.

Sub LoopThreeSheets()
Dim c As Long, r As Long
c = ThisWorkbook.Worksheets.Count
    For r = c To Application.Max(c - 2, 1) Step -1
    
        Debug.Print Worksheets(r).Name
        ' other code here
    
    Next r

End Sub

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

Sub How_Far_Does_This_Get_You()
Dim lr As Long, lc As Long, sh_notes As Worksheet
Set sh_notes = Worksheets("Notes")
lr = sh_notes.Cells.Find("*", , , , xlByRows, xlPrevious).Row
lc = sh_notes.Cells.Find("*", , , , xlByColumns, xlPrevious).Column
sh_notes.PageSetup.PrintArea = sh_notes.Cells(1, 1).Resize(lr, lc).Address
    With sh_notes
        If .PageSetup.Pages.Count < 4 Then
            .PrintOut
                Else
            .PrintOut .PageSetup.Pages.Count - 2, .PageSetup.Pages.Count, 1
        End If
    End With
End Sub

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.

Sub PrintingTests()

Dim numPages As Long, cntr As Long, lastPage2Print As Long

numPages = Worksheets("Sheet1").HPageBreaks.Count + 1
    If numPages < 3 Then
        lastPage2Print = 1
    Else
        lastPage2Print = numPages - 2
    End If

    For cntr = numPages To lastPage2Print Step -1
        Worksheets("Sheet1").PrintOut From:=cntr, To:=cntr
    Next cntr
 
End Sub

My pleasure, thanks for the rep. points.