Gruppe
Druck
Bereich
Kopf/Fußzeile
Thema
Die Druckblätter einer Arbeitsmappe durchnumerieren
Problem
Wie kann ich beim Ausdruck aller Blätter einer Arbeitsmappe die einzelnen Blätter durchnumerieren lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Seitenumbruch()
Dim wks As Worksheet
Dim iCount As Integer, iCounter As Integer, iPage As Integer
For Each wks In ThisWorkbook.Worksheets
wks.Activate
wks.PageSetup.PrintArea = wks.UsedRange.Address
iCount = iCount + ExecuteExcel4Macro("Get.Document(50)")
Next wks
For Each wks In ThisWorkbook.Worksheets
wks.Activate
For iPage = 1 To ExecuteExcel4Macro("Get.Document(50)")
iCounter = iCounter + 1
wks.PageSetup.LeftHeader = "Blatt " & _
iCounter & " von " & iCount & " Blatt"
wks.PrintOut from:=iPage, to:=iPage
Next iPage
Next wks
Worksheets(1).Select
End Sub