In diesem Beispiel wird Sheet1 beim Drucken in Seiten aufgeteilt. Die Seiten werden von links nach rechts und von oben nach unten nummeriert und gedruckt.
Worksheets("Sheet1").PageSetup.Order = xlOverThenDown