4
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 204868
Url: https://administrator.de/contentid/204868
Printed on: April 19, 2024 at 20:04 o'clock
4 Comments
Latest comment
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 Dieter,
dank für deinen Vorschlag.
Problem ist aber, daß die Bereiche jeweils angepasste Spaltenbreiten haben.
Bei deinem Vorschlag würde das Ganze dann optisch zerfallen.
Wollte beide Tabellen aber auf einem Blatt haben, um die Übersicht zu behalten.
Deshalb auch der horizontale Versatz.
Probier jetzt das Blatt noch mal so aufzubauen, daß beide Bereiche in Spalte A beginnen.
Muß dann eben mit vielen Spalten arbeiten, die ich je nach Bedarf verbinde.
Sollte dir allerdings zum Grundproblem noch was in VBA einfallen würde ich mich freuen.
Gruß
Uwe
dank für deinen Vorschlag.
Problem ist aber, daß die Bereiche jeweils angepasste Spaltenbreiten haben.
Bei deinem Vorschlag würde das Ganze dann optisch zerfallen.
Wollte beide Tabellen aber auf einem Blatt haben, um die Übersicht zu behalten.
Deshalb auch der horizontale Versatz.
Probier jetzt das Blatt noch mal so aufzubauen, daß beide Bereiche in Spalte A beginnen.
Muß dann eben mit vielen Spalten arbeiten, die ich je nach Bedarf verbinde.
Sollte dir allerdings zum Grundproblem noch was in VBA einfallen würde ich mich freuen.
Gruß
Uwe
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
Hallo Dieter,
dann besteht ja weiterhin das Grundproblem des horizontalen Versatzes.
Hatte gehofft, daß bei "union" jeder "range" für sich linksbündig untereinander weggedruckt wird. Dem ist aber offensichtlich nicht so. (Werde aber noch mal ein bißchen rumexperimentieren um das besser zu verstehen)
Das Problem an sich hab ich jetzt durch Neuaufbau des Blatts mit Start beider Ranges in Spalte A gelöst.
(war nervig, da ich wegen Sortierfunktion in einem Range nicht mit verbundenen Zellen arbeiten konnte).
Dank noch mal.
Gruß
Uwe
dann besteht ja weiterhin das Grundproblem des horizontalen Versatzes.
Hatte gehofft, daß bei "union" jeder "range" für sich linksbündig untereinander weggedruckt wird. Dem ist aber offensichtlich nicht so. (Werde aber noch mal ein bißchen rumexperimentieren um das besser zu verstehen)
Das Problem an sich hab ich jetzt durch Neuaufbau des Blatts mit Start beider Ranges in Spalte A gelöst.
(war nervig, da ich wegen Sortierfunktion in einem Range nicht mit verbundenen Zellen arbeiten konnte).
Dank noch mal.
Gruß
Uwe
