Seitenwechsel nach benanntem Bereich

Hallo,
in einer Tabelle habe ich verschiedene Zellbereiche benannt; z.B.
Bereich("A1:F30") heißt PV_50
Bereich("A31:F83") heißt PV_52
Bereich("A84:F105") heißt PV_55
usw.
Die benannten Bereiche folgen unmittelbar hintereinander und haben eine unterschiedliche Anzahl von Zeilen.
Jeder Bereich hat in seiner ersten Zeile eine Überschrift, in der zweiten und in der letzten Zeile eine Leerzeile. Innerhalb des Bereichs sind weitere Leerzeilen möglich.
Mein Problem/meine Frage:
Beim Ausdruck möchte ich einen Seitenwechsel nach einem benannten Bereich einfügen, wenn auf einer Seite nur noch 2 Zeilen des nächsten benannten Bereichs angedruckt und der Rest des benannten Bereichs auf der nächsten Seite folgt.
Ich möchte den Bereich in so einem Falle sozusagen "zusammenhalten". Es sieht komisch aus, wenn unten auf der Seite nur eine Überschrift eines Bereichs angedruckt wird, gefolgt von einer Leerzeile, und die eigentlichen Daten ohne Überschrift auf der nächsten Seite folgen.
Mir fehlt jetzt der gedankliche Ansatz, wie ich abprüfen kann, welcher Bereich vom Seitenwechsel betroffen ist und wieviele (oder welche) Zeilen des betroffenen Bereichs noch auf der x-ten Seite gedruckt werden.
Wäre für einen Gedankenanstoß (besser wären natürlich einige Codezeilen) dankbar.
Gruß
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DruckeBereich(n As String) With ActiveSheet .PageSetup.PrintArea = Range(n).Address .PageSetup.PrintTitleRows = _ Range(Range(n)(1), Range(n)(1).Offset(1, 0)).EntireRow.Address .PrintPreview 'zu Testzwecken, später durch .PrintOut ersetzen! End With End Sub Sub test() DruckeBereich "PV_50" DruckeBereich "PV_52" DruckeBereich "PV_55" End Sub

Hallo Jürgen,
spiele mal ein wenig mit diesen Prozeduren. Vielleicht bringt es dich weiter.
Die zweite Prozedur ist aber aus mir unbekanntem Grund nicht zuverlässig/liefert manchmal Fehler. Vielleicht läuft es bei Dir ja einwandfrei.
Gruß Matthias
-----------------------------------------------------------------------------------


Sub Bereiche()
Dim n As Name, ber As Range
For Each n In ActiveWorkbook.Names
Set ber = n.RefersToRange
If ber.Worksheet.Name = ActiveSheet.Name Then
Debug.Print "Bereich """ & n.Name & """ ab Zeile " & _
ber(1).Row & _
" bis Zeile " & ber(ber.Count).Row
Else
Debug.Print "Bereich """ & n.Name & """ nicht im aktuellen Blatt"
End If
Next n
End Sub
Sub Seitenumbrüche()
Dim i As Integer
Dim s As Integer 'Seite
With ActiveSheet
.DisplayPageBreaks = True
Debug.Print .HPageBreaks.Count + 1 & "  Seite/n im Blatt"
s = 1
'erste Druckzeile ermitteln
If .PageSetup.PrintArea = "" Then
i = 1
Else
i = Range(.PageSetup.PrintArea)(1).Row
End If
Debug.Print "Seite " & s & " ab Zeile " & i
'DoEvents
For i = 1 To .HPageBreaks.Count
s = s + 1
'DoEvents
Debug.Print "Seite " & s & " ab Zeile " & _
.HPageBreaks(i).Location.Row
Next i
.DisplayPageBreaks = False
End With
End Sub

Sub ErmittleSeitenumbrüche() Dim i As Integer Dim s As Integer 'Seite ActiveWindow.View = xlPageBreakPreview With ActiveSheet .DisplayPageBreaks = True Debug.Print .HPageBreaks.Count + 1 & " Seite/n im Blatt" s = 1 'erste Druckzeile ermitteln If .PageSetup.PrintArea = "" Then i = 1 Else i = Range(.PageSetup.PrintArea)(1).Row End If Debug.Print "Seite " & s & " ab Zeile " & i 'DoEvents For i = 1 To .HPageBreaks.Count s = s + 1 'DoEvents Debug.Print "Seite " & s & " ab Zeile " & _ .HPageBreaks(i).Location.Row Next i .DisplayPageBreaks = False End With ActiveWindow.View = xlNormalView End Sub

Beliebteste Forumthreads (12 Monate)

Seitenwechsel nach benanntem Bereich

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread