Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 Druckbereiche mit Hoch- und Querformat

2 Druckbereiche mit Hoch- und Querformat
30.03.2022 17:58:54
Tobi_1887
Hi zusammen,
ich möchte ein Makro erstellen, was mir:
1. "Druckbereich1" im Querformat und
2. "Druckbereich2" im Hochformat
in ein gemeinsames PDF druckt auf 2 Seiten. Beide Druckbereiche befinden sich auf "Tabellenblatt 1", dem aktiven Tabellenblatt. Ich kann die Druckbereiche leider nicht auf zwei Tabellenblätter aufteilen.
Mein Code sieht aktuell so aus, jedoch erstellt dieser je ein PDF pro Druckbereich: (den Code habe ich aus einem anderen Forumsbeitrag bekommen :))

Sub PDF()
With ActiveSheet
.PageSetup.Orientation = xlPortrait
.PageSetup.PrintArea = .Range("Druckbereich1").Address(0, 0)
.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintArea = .Range("Druckbereich2").Address(0, 0)
.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
.PageSetup.Orientation = xlPortrait
End With
End Sub
Kann mir hier jmd. weiterhelfen?
Viele Grüße
Tobi
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Druckbereiche mit Hoch- und Querformat
30.03.2022 18:42:38
Tobias
Hi Onur,
danke für deine Antwort. Der Beitrag konnte leider nicht mein Problem lösen, da ich gerne einen VBA Befehl für das Drucken haben möchte.
VG
Tobi
Anzeige
AW: 2 Druckbereiche mit Hoch- und Querformat
30.03.2022 18:55:00
onur
Du meinst wohl: du hast es nicht kapiert.
Der User hatte genau das selbe Problem, es wurde gerlöst durch:
PDF-Drucker statt ExportAsPDF und 2 Druckereinstellungen.
Falls du aber sagen woltest, dass du den Code nicht selber schreiben kannst: Da du nicht mal eine Datei gepostet hast, kannst du nicht erwarten, dass Jemand dir den Code schreibt UND deine Datei nachbaut.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Hoch- und Querformat in Excel kombinieren und als PDF exportieren


Schritt-für-Schritt-Anleitung

Um in Excel zwei Druckbereiche mit unterschiedlichen Seitenausrichtungen (Hochformat und Querformat) in ein gemeinsames PDF zu drucken, kannst Du folgenden VBA-Code verwenden. Dieser Code ermöglicht es Dir, die Druckbereiche im aktiven Tabellenblatt festzulegen und die jeweiligen Formate korrekt zu drucken und zu exportieren.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.
  3. Kopiere den folgenden VBA-Code in das Modul:
Sub PDF()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' Druckbereich 1 im Hochformat
    ws.PageSetup.Orientation = xlPortrait
    ws.PageSetup.PrintArea = ws.Range("Druckbereich1").Address(0, 0)
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Druckbereich1.pdf", Quality:=xlQualityStandard

    ' Druckbereich 2 im Querformat
    ws.PageSetup.Orientation = xlLandscape
    ws.PageSetup.PrintArea = ws.Range("Druckbereich2").Address(0, 0)
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Druckbereich2.pdf", Quality:=xlQualityStandard
End Sub
  1. Anpassungen: Stelle sicher, dass die Druckbereiche "Druckbereich1" und "Druckbereich2" in Deinem aktiven Tabellenblatt definiert sind.
  2. Starte das Makro, um die beiden Bereiche als PDF in unterschiedlichen Formaten zu speichern.

Häufige Fehler und Lösungen

  • Fehler: Das PDF wird nicht erstellt.

    • Lösung: Überprüfe, ob der Code korrekt eingefügt wurde und die Druckbereiche definiert sind.
  • Fehler: Die Seitenausrichtung wird nicht beachtet.

    • Lösung: Stelle sicher, dass die PageSetup.Orientation vor dem Export gesetzt wird.
  • Fehler: Mehrere PDFs werden erstellt.

    • Lösung: Achte darauf, dass die PDF-Dateien im gleichen Codeblock erstellt werden, um sie zu kombinieren.

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch die Druckeinstellungen manuell anpassen:

  1. Wähle den ersten Druckbereich aus und gehe zu Seitenlayout > Seite einrichten > Ausrichtung und wähle Hochformat.
  2. Drucke den Bereich über Datei > Drucken.
  3. Ändere dann die Ausrichtung auf Querformat und wiederhole den Druck für den zweiten Bereich.
  4. Du kannst die beiden PDFs mit einem PDF-Tool kombinieren.

Praktische Beispiele

Beispiel 1: Du hast eine Tabelle mit einem Diagramm, das im Hochformat gut aussieht, und eine lange Liste, die besser im Querformat präsentiert wird. Verwende den oben genannten Code, um sie in einem PDF zu kombinieren.

Beispiel 2: In einem Bericht möchtest Du den ersten Abschnitt im Hochformat drucken und den darauf folgenden im Querformat. Nutze die Makro-Funktion, um dies automatisch zu erledigen.


Tipps für Profis

  • Makros automatisieren: Du kannst das Makro auf eine Schaltfläche in Deinem Arbeitsblatt legen, um den Exportprozess noch einfacher zu gestalten.
  • PDF-Qualität: Experimentiere mit den Qualitätseinstellungen im ExportAsFixedFormat, um die beste Ausgabe für Deine Anforderungen zu erzielen.
  • Druckbereich dynamisch setzen: Du kannst auch dynamische Bereiche mittels Named Ranges verwenden, um die Flexibilität zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich die PDF-Dateien zusammenführen? Du kannst eine Software wie Adobe Acrobat oder ein Online-Tool verwenden, um die PDFs nach dem Export zusammenzuführen.

2. Kann ich den Code für mehrere Tabellenblätter verwenden? Der aktuelle Code funktioniert nur für das aktive Tabellenblatt. Du müsstest ihn anpassen, wenn Du mehrere Tabellenblätter einbeziehen möchtest.

3. Wird das PDF in einem bestimmten Ordner gespeichert? Aktuell speichert der Code die PDFs im Standardordner. Du kannst den Filename-Parameter anpassen, um den Speicherort zu ändern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige