Header question

  • Thread starter Thread starter Peter
  • Start date Start date
P

Peter

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
 
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, 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
Click to expand...


Many thanks Paul
--
Cheers

Peter

Please remove the invalid to reply
 
Back
Top