In diesem Beispiel werden der Name der Arbeitsmappe und die Seitenzahl unten auf jeder Seite gedruckt.
Worksheets("Sheet1").PageSetup.CenterFooter = "&F page &P"