Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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