hi everybody,
ich habe in einem Blatt einer Excel-Mappe als Druckbereich mehrere nichtzusammenhängende Bereiche definiert. Beim Drucken verteilt Excel nun jeden Bereich auf einer eigenen Seite, obwohl beide Bereiche problemlos auf einer Seite Platz finden.
Wie kann ich erreichen, daß Excel die Bereiche auf ein Blatt Papier zusammenfaßt? Kann ich ggf. die Abstände anpassen?
vielen dank
JayKay
Hallo JayKay,
eine Möglichkeit ist es einen Druckbereich mit allen relevanten Zellen zu definieren. Anschließend alle für den Druck überflüssigen Zeilen und Spalten ausblenden, drucken und anschließen diese wieder einblenden.
Eine weitere Möglichkeit wäre es, die Struktur des Tabellenblatt hinsichtlich des Drucks anzupassen.
Gruß,
André
Hallo André,
eine Möglichkeit ist es einen Druckbereich mit allen
relevanten Zellen zu definieren. Anschließend alle für den
Druck überflüssigen Zeilen und Spalten ausblenden, drucken und
anschließen diese wieder einblenden.
Naja, das würde ich gerne vermeiden. Einerseits zuckt dann das Blatt bös rum, andererseits muß man dann wieder soviel beachten (Seitenfixierung merken; Notfall-Einblendung, falls die Mappe während des Druckens geschlossen und die ausgeblendeten Dinger nicht wieder eingeblendet wurden, dafür dann wieder kontrollieren, was genau eingeblendet werden muß (denn die Druckbereichbestimmung liefert ja gerade so verteilte Bereiche), und bestimmt noch drei, vier Dinge, die mir jetzt noch nicht einfallen, bei der Benutzung aber Handlungsbedarf anmelden).
Eine weitere Möglichkeit wäre es, die Struktur des
Tabellenblatt hinsichtlich des Drucks anzupassen.
Das geht nun wirklich zu weit 
Das Dokument soll ja gerade alles abbilden, während nur bestimmte Bereiche zum Druck bestimmt sind. Oder ich richte ein verstecktes Schatten-Tabellenblatt ein, mit dem Druckergebnis und dem Umstand, daß das Drucken wegen der dann nötigen Schattenblatt-Aktualisierung ewig dauert.
Weißt Du denn verbindlich, daß man Excel nicht anweisen kann, separate Bereiche nicht auf Seiten zu verteilen?
Danke auf jeden Fall für Deine Hilfe und eine gute Nacht
JayKay
Grüezi Jens
Weißt Du denn verbindlich, daß man Excel nicht anweisen kann,
separate Bereiche nicht auf Seiten zu verteilen?
Ja, das ist verbindlich - WYSIWIG nennt sich das.
Mit freundlichen Grüssen
Thomas Ramel
ich habe in einem Blatt einer Excel-Mappe als Druckbereich
mehrere nichtzusammenhängende Bereiche definiert. Beim Drucken
verteilt Excel nun jeden Bereich auf einer eigenen Seite,
obwohl beide Bereiche problemlos auf einer Seite Platz finden.
Wie kann ich erreichen, daß Excel die Bereiche auf ein Blatt
Papier zusammenfaßt? Kann ich ggf. die Abstände anpassen?
Hallo JayKay,
vielleicht so:
(Code in ein Standardmodul, Modul1 o.ä.)
Option Explicit
Sub Drucken()
Dim Bereich, N As Integer, wks As Worksheet, Spa As Long, Zei As Long
Const Blatt As String = "Druck"
For Each wks In ThisWorkbook.Worksheets
If wks.Name = Blatt Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
Exit For
End If
Next wks
With Worksheets(ActiveSheet.Name)
'.PageSetup.PrintArea = "$A$1:blush:A$8,$G$3:blush:G$13"
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Blatt
Bereich = Split(.PageSetup.PrintArea, ",")
For N = 0 To UBound(Bereich)
Spa = Worksheets(Blatt).UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
Zei = .Range(Bereich(N)).Row
.Range(Bereich(N)).Copy Destination:=Worksheets(Blatt).Cells(Zei, Spa)
Next N
End With
With Worksheets(Blatt)
.PageSetup.PrintArea = .UsedRange.Address
.PrintPreview
'.printout
End With
End Sub
Gruß
Reinhard