Barbara hat ein Arbeitsblatt, das sie regelmäßig ausdrucken muss.

Manchmal muss sie nur drei Datenspalten drucken, manchmal muss sie mehr drucken. Wenn sie nur drei Spalten druckt, passen sie sehr gut auf eine Seite, die im Hochformat gedruckt wird. Wenn sie mehr Spalten druckt, muss sie im Querformat drucken. Barbara fragt sich, ob es eine Möglichkeit gibt, Excel so einzurichten, dass es automatisch von Hochformat zu Querformat wechselt, basierend auf der Anzahl der Spalten, die sie drucken möchte.

Der einfachste Weg, diese Art des Druckens zu handhaben, besteht darin, ein kleines Makro hinzuzufügen, das unmittelbar vor dem Drucken ausgeführt wird. Wenn der Druckbereich so eingestellt ist, dass er 1, 2 oder 3 Spalten enthält, erfolgt der Ausdruck im Hochformat. Es wird eine beliebige andere Anzahl von Spalten und Querformat verwendet. Hier ist das Makro; Sie sollten es dem ThisWorkbook-Modul hinzufügen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup         If Range(.PrintArea).Columns.Count > 3 Then             .Orientation = xlLandscape         Else             .Orientation = xlPortrait         End If     End With End Sub

Natürlich kann es vorteilhafter (und flexibler) sein, wenn Sie einfach die Funktion „Benutzerdefinierte Ansichten“ von Excel verwenden. Sie können eine Ansicht angeben, die Ihre drei Spalten oder eine beliebige Anzahl von Spalten enthält. Sie können sogar festlegen, dass die Ansicht Druckeinstellungen enthält, sodass die Ausrichtung der Seite in der Ansicht enthalten ist. Führen Sie die folgenden Schritte aus, um die Ansichten einzurichten:

  1. Formatieren und positionieren Sie Ihr Arbeitsblatt so, wie es angezeigt werden soll. Stellen Sie außerdem sicher, dass Sie sowohl den Druckbereich für Ihre drei Spalten als auch das Seitenlayout auf Hochformat einstellen.

  2. Wählen Sie im Menü Ansicht die Option Benutzerdefinierte Ansichten. Excel zeigt das Dialogfeld Benutzerdefinierte Ansichten an.

  3. Klicken Sie auf die Schaltfläche Hinzufügen. Excel zeigt das Dialogfeld Ansicht hinzufügen an. (Siehe Abbildung 1.)

  4. Geben Sie im Feld Name den Namen ein, der dieser Ansicht zugeordnet werden soll.

  5. Wählen Sie im Abschnitt „Includes anzeigen“ die Optionen aus, die das widerspiegeln, was mit dieser Ansicht gespeichert werden soll. Stellen Sie sicher, dass Sie angeben, dass Sie Druckeinstellungen hinzufügen möchten.

  6. Wenn Sie mit Ihren Einstellungen zufrieden sind, klicken Sie auf die Schaltfläche OK. Die aktuelle Ansicht wird von Excel gespeichert.

  7. Wiederholen Sie die Schritte 1 bis 6, diesmal jedoch für Ihren größeren Druckbereich, und stellen Sie sicher, dass Sie das Seitenlayout für die Querformatausrichtung festlegen.

Wenn Sie jetzt auf verschiedene Arten drucken möchten, rufen Sie einfach die gewünschte Ansicht auf und wählen den Druckvorgang aus – alles andere ist bereits für Sie festgelegt.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

Dieser Tipp (10364) gilt für Microsoft Excel 97, 2000, 2002 und 2003.

Eine Version dieses Tippes für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier:

Automatische Auswahl von Hochformat oder Querformat.