Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel VBA - Durch -Union- verbundene Bereiche ohne Seitenumbruch drucken

Frage Entwicklung VB for Applications

Mitglied: ovu-p86

ovu-p86 (Level 1) - Jetzt verbinden

12.04.2013, aktualisiert 04:32 Uhr, 3368 Aufrufe, 4 Kommentare

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.

01.
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range 
02.
Set r1 = Range("Bereich1") 
03.
Set r2 = Range("Bereich2") 
04.
Set myMultiAreaRange = Union(r1, r2) 
05.
myMultiAreaRange.Select 
06.
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:

7b87820c4eefeec8b57f610ee3e97ad6 - Klicke auf das Bild, um es zu vergrößern


Frage:

Wie kann ich den Seitenumbruch vermeiden?

Für Lösungen bin ich dankbar.

Gruss
Uwe
Mitglied: 76109
12.04.2013 um 11:10 Uhr
Hallo ovu-p86!

Durch Union ändert sich ja nichts an der Blattaufteilung.

Kopiere die Bereiche in ein neues Sheet in Spalte A z.B.:
01.
Range("Bereich1").Copy Sheets("Tabelle2").Range("A5") 
02.
Range("Bereich2").Copy Sheets("Tabelle2").Range("A15") 
03.
 
04.
Sheets("Tabelle2").PrintOut Copies:=1, Preview:=True, Collate:=True
Gruß Dieter
Bitte warten ..
Mitglied: ovu-p86
12.04.2013 um 20:26 Uhr
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
Bitte warten ..
Mitglied: 76109
13.04.2013, aktualisiert um 02:54 Uhr
Hallo Uwe!

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

Gruß Dieter
Bitte warten ..
Mitglied: ovu-p86
14.04.2013 um 23:53 Uhr
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
Bitte warten ..
Ähnliche Inhalte
VB for Applications
SNMP Abfrage in EXCEL über VBA (7)

Frage von SebastianL zum Thema VB for Applications ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
gelöst VBA Excel Skript - Hilfe! (1)

Frage von 133202 zum Thema VB for Applications ...

VB for Applications
gelöst Excel - VBA - Fusszeile Text und Grafik (1)

Frage von Juckie zum Thema VB for Applications ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (30)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...