Headers

  • Thread starter Thread starter Vikki
  • Start date Start date
Vikki, try this macro 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"
.CenterHeader = ActiveSheet.Range("A1")
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
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
 
Back
Top