Seitenumbrüche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Hansueli,
deine Einwände sind durchaus berechtigt. Insofern die Proportionen bei der DIN A4-Seite gleich bleiben, ist es doch egal, an welcher Seite ich ziehe (ob an der Horizontalen oder der Vertikalen).
Einen Punkt zum Thema Level. Hört doch endlich auf mit dem dämlichen Sarkasmus. Sich hier hinstellen und um Hilfe fragen ist auch nicht besonders, vor allem wenn man eine Frage oder einen Code nicht im gewohnten Muster abliefert. Was soll der Mist? ICH bin jedem dankbar, der weiterhelfen will.
Zurück zum Thema:
Mit diesem DEINEM Code markiere ich den Druckbereich. Das ist auch eine DIN A4-Seitenbreite, denn die Höhe ergibt sich ja aus der Anzahl der Zeilen.

Sub Test()
With ThisWorkbook.Worksheets("4.Ergebnisübersicht")
.PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(.Rows.Count, 9).End(xlUp)).Address
.PageSetup.PrintQuality = 600
.PageSetup.Orientation = xlPortrait
.PageSetup.PaperSize = xlPaperA4
.PageSetup.FirstPageNumber = xlAutomatic
.PageSetup.Order = xlDownThenOver
.PageSetup.Zoom = 89
.PageSetup.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

Für eine Seite klappt das wunderbar, doch sobald der Inhalt auf eine zweite Seite geht, schlägt der Zoom durch.
Wie könnte ein Code aussehen, wenn man die Zellen in Spalte A zählt und entsprechend dann einen horizontalen Seitenumbruch einfügt?!
If Range("A1:A" & Range("A500").End(xlUp).Select).Address Then
ActiveSheet.HPageBreaks.Add Before:=Range("A38")
End If
Mit dieser Codezeile wird mir ein globaler Fehler rückgemeldet.
Danke für eure Hilfe im Voraus
Gruß
A.

Hallo Albert, Hi Hans Ueli,
@ Albert: du solltest auch verstehen wenn du wie du im ersten Beitrag schreibst, einen Druckbereich definiert hast, du auch nur diesen ausdrucken kannst.
Dein Vorhaben ist auch nicht wirklich gut erklärt, denn ich versteh nur Bahnhof was du erreichen möchtest. Da du einmal mit Spalte H und im nächsten Moment mit Spalte I arbeiten willst.
Du kannst doch auch bestimmt eine Musterdatei anfertigen die dem Aufbau wieder spiegelt u. dort angibst was du möchtest oder hier im Forum ordentlich beschreibst was du vorhast.
Ich weis auch nicht ob du die Zeilen von HansUeli verstanden hast: Zitat:
Natürlich, wenn die Spalten von A: nur bis H abhängig von obigen Parametern zum Druck Platz haben, dann ist da ein Vertikaler-Seitenumbruch und du kannst noch so viele Pagebreaks, nach H als I - XFD einfügen, dadurch ändert sich nichts an der Tatsache, dass nur bis H auf eine Seite passt!
Mein Vorschlag ist: dir einfach mal den Makrorecorder zu Hilfe holen.
..lasse Beitrag "offen" für andere Wortmeldungen.
Gruß Matze
@HansUeli:
kannst du mir hier mal helfen, ich bekomm das mit der 2ten Datei nicht hin, der Link geht zum 1ten Beitrag: https://www.herber.de/forum/messages/1336001.html
Danke

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread