Non-sequential Page Number total in Excel Footer?

[infinity306]

Hi, I would like to know if there is a way to have Page # of # on the footer for each tab when printing? currently we have Page &[Page] of &[Pages] in the custom footer, but unless we print or export each tab individually to PDF it ends up with Page 1 of {total number of pages in workbook} Would like it to just have the number of pages per sheet/tab, but don't see any code to do such.. yes we can set a starting page number for 1 instead of auto, but that doesn't help for the ending page number on each tab. and there workbooks can have over 20 tabs. any solution you can see to this? Even using VBA would be ok. I don't understand why Microsoft hasn't apparently added a code to do this in all this time. seem simple enough?

Thanks for any help.

 

[pgc01]

Hi
Welcome to the board

I also don't know of a code to get the number of pages of each worksheet.

What I'd do is to build my own footer for each worksheet, getting the page count of each worksheet from the PageSetup object.

Before printing: Insert the code below in a general module and execute it. This builds a footer for each sheet.

Then select some sheets and print them.

Sub SetFirstLastPageWS()
Dim ws As Worksheet
    
For Each ws In ActiveWorkbook.Sheets
    With ws.PageSetup
        If .Pages.Count > 0 Then
                .FirstPageNumber = 1
                .RightFooter = "&P " & ws.PageSetup.Pages.Count
        End If
    End With
Next ws
End Sub