Excel Unique last page footer


ECS

Joined
Jan 17, 2018
Messages
1
Reaction score
0
How can I make the last footer on my sheet different to the rest. Excel 2013??

I know you can put a different first page or odd or even pages but how can i change the last page footer to be different from all other pages? one sheet that runs over 4 or 5 pages
 
Ad

Advertisements

Joined
Feb 21, 2018
Messages
216
Reaction score
86
Very nice question....ECS !
I take help from the following web page Ref: https://excelribbon.tips.net/T012548_Custom_Page_Numbers_on_Printouts.html


There are a few ways you can go about tackling this problem, all of them involving the little bit use of VBA. If you actually want to print all the pages reside on the current worksheet, then the following macro will set the center section of the Footer of the last page differently (as requested):

Sub Differet_Footer_for_the_Last_Page()
Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count
If J = ActiveSheet.PageSetup.Pages.Count Then
ActiveSheet.PageSetup.CenterFooter = "Page " & J & "...THE END"

End If
ActiveSheet.PrintOut J, J
Next J
End Sub
 
Last edited:

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top