Gruppe
Druck
Problem
Wie kann ich alle Arbeitblätter einer Arbeitsmappe drucken lassen und in den Fußzeilen über alle Tabellen fortlaufende Blattnummern mit der Gesamtblattanzahl angeben lassen?
StandardModule: basMain
Sub AlleSeiten()
Dim wks As Worksheet
Dim iCountW As Integer, iCountP As Integer, iAct As Integer
Application.ScreenUpdating = False
For Each wks In ThisWorkbook.Worksheets
wks.Select
iCountW = iCountW + ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")
Next wks
For Each wks In ThisWorkbook.Worksheets
wks.Select
For iAct = 1 To ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")
iCountP = iCountP + 1
wks.PageSetup.LeftFooter = _
"Blatt " & iCountP & " von " & _
iCountW & " Blatt"
wks.PrintOut From:=iAct, To:=iAct
Next iAct
Next wks
Worksheets("Tabelle1").Select
End Sub