Thema: Daten von mehreren Blättern auf ein Druckblatt

StandardModule: Modul1

Sub PrintPlus()
   Dim rng As Range
   Dim iWks As Integer, iRow As Integer
   Workbooks.Add 1
   iRow = 1
   For iWks = 2 To 4
      Cells(iRow, 1).Value = "Blatt " & _
         ThisWorkbook.Worksheets(iWks).Name
      Set rng = ThisWorkbook.Worksheets(iWks) _
         .Range("A1").CurrentRegion
      rng.Copy Cells(iRow + 1, 1)
      iRow = iRow + rng.Rows.Count + 2
   Next iWks
   ActiveSheet.PrintPreview
   ActiveWorkbook.Close savechanges:=False
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Seite