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