Header/Footer
 

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

Header/Footer
 

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


--

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


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

Header/Footer
 

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" wrote:

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


--

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


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

Header/Footer
 

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


"PJY" wrote in message ...
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" wrote:

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


--

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


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

Header/Footer
 

"Ron de Bruin" wrote:

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


"PJY" wrote in message ...
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" wrote:

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


--

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


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

Thanks, I'll give it a try