In diesem Beispiel wird das Datum links oben auf jeder Seite gedruckt.
Worksheets("Sheet1").PageSetup.LeftHeader = "&D"