Arbeitsblatt mehrmals drucken mit fortlaufender Seitenzahl

[DeLaGhetto]

Hallo zusammen.

Ist es möglich bei Excel ein Blatt mehrmals auszudrucken, allerdings mit einer fortlaufender Seitenzahl?

Wäre dankbar, wenn mir einer dabei helfen könnte...

[opelmeister]

Etwa so:

Sub Makro()
Dim n As Integer
For n = 1 To X
ActiveSheet.PageSetup.RightHeader = "Seite " & n
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next n
End Sub

Bemerkung: X steht für die Anzahl der Kopien. Bei 10 Kopien also 10 für X einsetzen.