Arbeitsmappen können alle Arten von Daten enthalten. Wenn Sie eine Arbeitsmappe haben, die eine Reihe von Arbeitsblättern enthält, die jeweils nur eine geringe Datenmenge enthalten, fragen Sie sich möglicherweise, ob es eine Möglichkeit gibt, mehrere Arbeitsblätter auf ein einzelnes Blatt Papier zu drucken.

Es gibt verschiedene Möglichkeiten, wie Sie eine Lösung für dieses Problem finden können. Die erste besteht darin, einfach mehrere Seiten pro Blatt zu drucken und dabei die Funktionen Ihres Druckertreibers zu nutzen. Ich habe beispielsweise einen älteren HP LaserJet, und mit dem Druckertreiber kann ich die Anzahl der zu druckenden Seiten pro Blatt Papier angeben. Wenn ich drei oder vier einseitige Arbeitsblätter auf einem Blatt Papier drucken möchte, muss ich nur die folgenden Schritte ausführen:

  1. Drücken Sie Strg + P. Excel zeigt das Dialogfeld Drucken (Excel 2007) oder die Druckoptionen (Excel 2010 und Excel 2013) an.

  2. Wenn Sie Excel 2007 verwenden, wählen Sie im Bereich Drucken des Dialogfelds die Option Gesamte Arbeitsmappe. Wenn Sie eine spätere Version von Excel verwenden, verwenden Sie die Dropdown-Liste unmittelbar unter der Überschrift „Einstellungen“, um „Ganze Arbeitsmappe drucken“ auszuwählen.

  3. Klicken Sie auf die Schaltfläche Eigenschaften (Excel 2007) oder auf den Link Druckereigenschaften (spätere Versionen von Excel). Excel zeigt das Dialogfeld Eigenschaften für den Drucker mit der ausgewählten Registerkarte Layout an.

  4. Stellen Sie das Steuerelement „Seiten pro Blatt“ auf 4.

  5. Klicken Sie auf OK, um das Dialogfeld Eigenschaften zu schließen.

  6. Klicken Sie auf OK, um die Arbeitsblätter tatsächlich zu drucken.

Ihr Drucker bietet möglicherweise eine ähnliche Funktion wie hier beschrieben. Möglicherweise müssen Sie jedoch im Dialogfeld Eigenschaften des Druckers einige Untersuchungen durchführen, um diese Funktion zu ermitteln. Natürlich kann das Drucken auf diese Weise zu sehr kleinem Text auf dem Ausdruck führen, da der Druckertreiber einfach jede Seite reduziert, um einen proportionalen Bereich der gedruckten Seite zu belegen. Wenn Sie den Leerraum verkleinern und dadurch den gedruckten Text vergrößern möchten, müssen Sie nach einer anderen Lösung suchen.

Viele Menschen erstellen zur Konsolidierung des Drucks tatsächlich ein „Druckarbeitsblatt“, das nur Verweise auf die Bereiche enthält, die auf den anderen Arbeitsblättern in der Arbeitsmappe gedruckt werden sollen. Diese Verweise können entweder über Formeln erfolgen, die sich auf die Daten in jedem Arbeitsblatt beziehen, oder mithilfe des Kamera-Tools in Excel. (Das Kamera-Tool wurde in anderen Ausgaben von ExcelTips. beschrieben.)

Für eine automatisierte Lösung zum Zusammenführen mehrerer Arbeitsblätter zu einem einzigen Arbeitsblatt können Sie ein Makro verwenden. Das folgende Makro erstellt am Ende Ihrer Arbeitsmappe ein neues Arbeitsblatt und kopiert den Inhalt aller anderen Arbeitsblätter hinein.

Sub PrintOnePage()

Dim wshTemp As Worksheet, wsh As Worksheet  Dim rngArr() As Range, c As Range  Dim i As Integer  Dim j As Integer

ReDim rngArr(1 To 1)

For Each wsh In ActiveWorkbook.Worksheets  i = i + 1  If i > 1 Then ' resize array   ReDim Preserve rngArr(1 To i)

End If

On Error Resume Next  Set c = wsh.Cells.SpecialCells(xlCellTypeLastCell)

If Err = 0 Then   On Error GoTo 0

'Prevent empty rows   Do While Application.CountA(c.EntireRow) = 0 _   And c.EntireRow.Row > 1   Set c = c.Offset(-1, 0)

Loop

Set rngArr(i) = wsh.Range(wsh.Range("A1"), c)

End If  Next wsh

'Add temp.Worksheet  Set wshTemp = Sheets.Add(after:=Worksheets(Worksheets.Count))



On Error Resume Next  With wshTemp  For i = 1 To UBound(rngArr)

If i = 1 Then   Set c = .Range("A1")

Else   Set c = _    ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)

Set c = c.Offset(2, 0).End(xlToLeft) 'Skip one row   End If

'Copy-paste range (prevent empty range)

If Application.CountA(rngArr(i)) > 0 Then   rngArr(i).Copy c   End If  Next i  End With  On Error GoTo 0

Application.CutCopyMode = False ' prevent marquies

With ActiveSheet.PageSetup 'Fit to 1 page  .Zoom = False  .FitToPagesWide = 1  .FitToPagesTall = 1  End With

'Preview New Sheet  ActiveWindow.SelectedSheets.PrintPreview

'Print Desired Number of Copies  i = InputBox("Print how many copies?", "ExcelTips", 1)

If IsNumeric(i) Then  If i > 0 Then   ActiveSheet.PrintOut Copies:=i  End If  End If

'Delete temp.Worksheet?

If MsgBox("Delete the temporary worksheet?", _  vbYesNo, "ExcelTips") = vbYes Then  Application.DisplayAlerts = False  wshTemp.Delete  Application.DisplayAlerts = True  End If End Sub

Nachdem das kombinierte Arbeitsblatt zusammengestellt wurde, zeigt das Makro das Arbeitsblatt mithilfe der Seitenansicht an. Wenn Sie die Seitenansicht schließen, werden Sie gefragt, wie viele Kopien des Arbeitsblatts Sie drucken möchten. Wenn Sie eine Zahl größer als Null eingeben, werden so viele Kopien gedruckt. Schließlich bietet das Makro an, das kombinierte Arbeitsblatt kurz vor dem Abschluss für Sie zu löschen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (8315) gilt für Microsoft Excel 2007, 2010 und 2013. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: