Gruppe
Druck
Problem
Wie kann ich beim Ausdruck aller Blätter einer Arbeitsmappe die einzelnen Blätter durchnumerieren lassen?
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