Header/Footer

[Guest]

In Excel 2003, how do I make the header different on the first page? I want
to have different text - not page numbering.

 

[Ron de Bruin]

Only possible with a macro
See
http://www.rondebruin.nl/print.htm#not

 

[Guest]

Thanks for your website - but I DO want it to print on each page, however, I
need the text to be different on page 1 than it is on the pages following.

 

[Ron de Bruin]

Very easy

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = "Your Header info of page 1"
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = "your header info for all other pages"
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub

 

[Guest]

Very easy

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = "Your Header info of page 1"
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = "your header info for all other pages"
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm



Thanks, I'll give it a try