Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile