Excel VBA - Durch -Union- verbundene Bereiche ohne Seitenumbruch drucken
Hallo,
Habe ein Tabellenblatt das zwei, mit Namen benannte, Bereiche hat. Beide Bereiche sind horizontal versetzt.
Beide Bereiche möchte ich auf einer Seite ausdrucken.
Hab die Bereiche zum Drucken mit folgendem Code zusammengefasst.
Obwohl beide Bereiche sowohl in Höhe, wie auch jeder Bereich für sich in der Breite, auf eine Seite passen, bekomme ich einen Seitenwechsel.
Kurze Skizze zur Verdeutlichung:

Wie kann ich den Seitenumbruch vermeiden?
Für Lösungen bin ich dankbar.
Gruss
Uwe
Habe ein Tabellenblatt das zwei, mit Namen benannte, Bereiche hat. Beide Bereiche sind horizontal versetzt.
Beide Bereiche möchte ich auf einer Seite ausdrucken.
Hab die Bereiche zum Drucken mit folgendem Code zusammengefasst.
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Set r1 = Range("Bereich1")
Set r2 = Range("Bereich2")
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
Problem:
Obwohl beide Bereiche sowohl in Höhe, wie auch jeder Bereich für sich in der Breite, auf eine Seite passen, bekomme ich einen Seitenwechsel.Kurze Skizze zur Verdeutlichung:

Frage:
Wie kann ich den Seitenumbruch vermeiden?Für Lösungen bin ich dankbar.
Gruss
Uwe
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 204868
Url: https://administrator.de/forum/excel-vba-durch-union-verbundene-bereiche-ohne-seitenumbruch-drucken-204868.html
Ausgedruckt am: 20.02.2025 um 00:02 Uhr
4 Kommentare
Neuester Kommentar

Hallo ovu-p86!
Durch Union ändert sich ja nichts an der Blattaufteilung.
Kopiere die Bereiche in ein neues Sheet in Spalte A z.B.:
Gruß Dieter
Durch Union ändert sich ja nichts an der Blattaufteilung.
Kopiere die Bereiche in ein neues Sheet in Spalte A z.B.:
Range("Bereich1").Copy Sheets("Tabelle2").Range("A5")
Range("Bereich2").Copy Sheets("Tabelle2").Range("A15")
Sheets("Tabelle2").PrintOut Copies:=1, Preview:=True, Collate:=True
Gruß Dieter

Hallo Uwe!
Generell würde mir dazu nur eine Anpassung der Spaltenbreite einfallen:
Stellt sich nur die die Frage, wie dass dann optisch aussieht
?
Gruß Dieter
Generell würde mir dazu nur eine Anpassung der Spaltenbreite einfallen:
Sheets("Tabelle2").UsedRange.Columns.AutoFit
Stellt sich nur die die Frage, wie dass dann optisch aussieht
Gruß Dieter