In diesem Beispiel werden Datum und Seitenzahl oben auf jeder Seite gedruckt.
Worksheets("Sheet1").PageSetup.CenterHeader = "&D page &P of &N"