Drucken mehrerer Arbeitsblätter auf einer einzigen Seite (Microsoft Excel)
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:
-
Wählen Sie im Menü Datei die Option Drucken. Excel zeigt das Dialogfeld Drucken an.
-
Wählen Sie im Bereich Drucken des Dialogfelds die Option Gesamte Arbeitsmappe aus.
-
Klicken Sie auf die Schaltfläche Eigenschaften. Excel zeigt das Dialogfeld Eigenschaften für den Drucker mit der ausgewählten Registerkarte Layout an.
-
Stellen Sie das Steuerelement „Seiten pro Blatt“ auf 4.
-
Klicken Sie auf OK, um das Dialogfeld Eigenschaften zu schließen.
-
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: