Thema: Mehrfachauswahl im Hoch- und Querformat drucken

Home

Gruppe

Druck

Problem

Wie kann ich über VBA den 1. Bereich einer Mehrfachauswahl im Hoch-, den 2. Im Querformat drucken?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Drucken()
   Dim rngA As Range, rngB As Range
   Set rngA = Selection.Areas(1)
   Set rngB = Selection.Areas(2)
   With ActiveSheet.PageSetup
      .PrintArea = rngA.Address
      .Orientation = xlPortrait
      ActiveSheet.PrintPreview
      .PrintArea = rngB.Address
      .Orientation = xlLandscape
      ActiveSheet.PrintPreview
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Seite

PDF Drucken VBA	Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument	UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen	Bilder in Registerblatt drucken
Regex für Filterung von Daten in html-seiten	PDF eventuell Ausdruck sperren?
Druchbereiche auf eine Seite	Seitenumbuch
Druckprobleme....	Text aus Zelle in Internet Seite
Skript funktioniert nur auf einer seite?!?!	Tabellenblätter Ausdruck gruppieren
Drucken mit VBA	Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken	Automatischen Andruck auf Standartdrucker erzeugen
Seitennummerierung in Fußzeile	Grösse Textbox vom Seitenrand abhängig machen
Druckerauswahl	Excel links auf seite
Blätter autom. ein-/ausblenden + drucken	Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung	Arbeitsmappendruck
Button für Seite einrichten	Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei	Fehler 1004 beim Druck einer PDF - mit Screenshot
Druckeinstellungen für mehrere Drucke übernehmen	Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken	Druckparameter an neue Datei
Button zum Ausdrucken	Druckparameter an Datei mitgeben
Makro für ereignisabh. Druck verschiedener Seiten	Excel Seriendruck im PDF-Format
Per VBA drucken - Adobe PDF on ne0x	Drucken, nur wenn Bedingung erfüllt ist!
Probleme beim Einfügen man. Seitenumbrüche (VBA)	variablen Druckbereich definieren
Automatischer Seitenumbruch	Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen??	Wann zuletzt ausgedruckt
Excel druckt keine Bilder!	Datenfelden in Excel auf Seite schreiben.
sql Ausdruck like	Excel Druckmakro - VBA Experten gesucht