Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Header question
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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
On Mon, 1 Aug 2005 11:29:20 -0400, "Paul B"
wrote: 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 Many thanks Paul -- Cheers Peter Please remove the invalid to reply |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom Header and Footer | Excel Discussion (Misc queries) | |||
Graphic in Header scaling with pages contents | Excel Discussion (Misc queries) | |||
header or footer | Excel Worksheet Functions | |||
how do I permanetly add custom header to excel header list? | Excel Discussion (Misc queries) | |||
Default header in Excel under page set-up | Excel Discussion (Misc queries) |