ExcelBanter - View Single Post - How do I print a footer on the last page only of an excel doc?

Hi Jim

As far as I know Yes

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Jim May" wrote in message news:nh8Ee.81579$Fv.72754@lakeread01...
Even at xl2003 version, are we still bound to "Excel4Macro" code to acheive TotPages? hummm..
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
TIA,

"Ron de Bruin" wrote in message ...
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?