| Home |
| Search |
| Today's Posts |
|
#2
|
|||
|
|||
Hi
Only with code Sub test() Dim TotPages As Long TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") With ActiveSheet.PageSetup .RightFooter = "" ActiveSheet.PrintOut From:=1, To:=TotPages - 1 .RightFooter = "Your Header info" ActiveSheet.PrintOut From:=TotPages, To:=TotPages End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "CLDelafield" wrote in message ... How do I print a footer on the last page only of an excel doc? Is this possible? |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| tOTALS WON'T PRINT ON SAME PAGE | New Users to Excel | |||
| My scaling is set to print 1x1 pages. But it prints 1000's of page | Excel Worksheet Functions | |||
| print selected sections on the same page | Excel Discussion (Misc queries) | |||
| Getting rid of 2nd Page on Print. | New Users to Excel | |||
| print header or footer on first page only | Excel Discussion (Misc queries) | |||
Threaded Mode
