Peter, here is one way by Ron de Bruin
Sub print_header()
'will print header on 1st page only
'By: Ron de Bruin
Totpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.LeftHeader = "test"
.CenterFooter = ActiveSheet.Range("A1")
.CenterHeader = "&8Page &8&P & of &N"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
.LeftHeader = ""
.CenterHeader = ""
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=Totpage
End With
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
"Peter" wrote in message
...
Hi,
Can anyone please advise if it is possible to have the header in an
Excel 2003 workbook only apply to the first worksheet and not to the
subsequent worksheets in that workbook?
If so, how to achieve it?
--
Cheers
Peter
Please remove the invalid to reply
|