Footer on last page

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want a footer to appear only on the last page of a form.
How do I accomplish this? The form could have from 1 to 5 pages.
 
Hi Line

You can do it with a macro

Try this to print the activesheet

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = ""
ActiveSheet.PrintOut From:=1, To:=TotPages - 1
.RightHeader = "Your Header info"
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub
 
You must log in or register to reply here.

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

Similar Threads

Excel Unique last page footer 1
Custom Footer 2
Picture only in footer of last page? 4
How to insert a footer on only the last page of an excel document 2
Printing: page count exceeds pages in tab 1
VBA Printing Custom Footer on all but last page 2
Printing Headers on only first page and Footers on only last page 5
PowerPoint Separate lines (line break) - PowerPoint Footer 1

Back
Top