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. Wählen Sie im Menü Datei die Option Drucken. Excel zeigt das Dialogfeld Drucken an.

  2. Wählen Sie im Bereich Drucken des Dialogfelds die Option Gesamte Arbeitsmappe aus.

  3. Klicken Sie auf die Schaltfläche Eigenschaften. 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 (3243) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: