To print header, control the font and to pull second line of header (the date) from worksheet : Worksheet Page Header Footer « Excel « VBA / Excel / Access / Word





To print header, control the font and to pull second line of header (the date) from worksheet

 
Sub Printr()
    ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold Italic""&14My Report" & Chr(13) _
        & Sheets(1).Range("A1")
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

Related examples in the same category

1.Set the center footer to file path
2.Set center footer to your string text