Stellen für einen Seitenwechsel vorgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

du weisst ja, wieviele Zellen auf eine Seite passen.
Dann kannst du ja den Druckvorgang bzw. den Seitenumbruch über ein Makro steuern

Das folgende Makro setzt immer nach 48 sichtbaren Zeilen einen Seitenumbruch.
Ist also unabhängig von deiner gerade gewählten Gruppierung

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim printRow As Integer, rowCounter As Integer, cellCounter As Integer
Dim printPages As Integer, printCounter As Integer
'Zeilen für den Ausdruck auf einer Seite
'Hier mal 48 eingestellt
printRow = 48
'Seiten von deinem Formular
printPages = 4
'coutner auf 0 stellen
rowCounter = 1
printCounter = 0
cellCounter = 1
If ActiveSheet.Name = "Dein_Formularname" Then
    'Alle alten Seitenumbrüche zurücksetzen
    ActiveSheet.ResetAllPageBreaks
    'Schleife für die Anzahl Seiten beginnen
    Do Until printCounter = printPages
        'Schleife für die Anzahl zeilen beginnen
        Do Until rowCounter = printRow
            'Zähler hochsetzen wenn die Zeile sichtbar ist
            If Rows(cellCounter).Hidden = False Then
                rowCounter = rowCounter + 1
                cellCounter = cellCounter + 1
            Else
                'Wenn nicht, wird der Cellzähler hochgesetzt
                cellCounter = cellCounter + 1
            End If
        Loop
        'Manuellen Seitenumbruch setzen
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(cellCounter, 1)
        'Zurücksetzen der relevanten Zähler
        rowCounter = 1
        'Hochzählen der Anzahl Seiten
        printCounter = printCounter + 1
    Loop
End If
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Das gehört in das Modul "Diese Arbeitsmappe"

Gruss Rainer

Hi Markus,
wenn ich recht verstehe hast du in deinem Formular Blöcke, und es soll so ausgedruckt werden, dass entweder der untere Block noch ganz aufs Blatt passt oder, wenn nicht soll er auf der nächsten Seite anfangen.

Hinweis zu Top: Top einer Zelle ist der Bottom der Zelle dadrüber,
also ist Range("A49").Top der unterste Punkt von Zelle A48.
Druck einfach mal eine Seite und schaue es dir in der Seitenvorschau an. Dann ermittle mit Top den Punktwert der Zelle die nicht mehr aufs erste Blatt passt.
Nun hast du den Wert, wieviele Punkte aufs Blatt passen, zb 612.

Ich weiss jetzt nicht wie ein Makro deine Blöcke auseinanderhalten kann/könnte, ich geh mal als Beispiel davon aus, zwischen jedem Block ist eine Leerzeile.

Nun muss das Makro 'nur' (von oben aus) die Zeilennummer der nächsten Leerzeile ermitteln, prüfen ob deren Punktwert größer als 612 ist.
Wenn nein, nochmals die nächste Leerzeile ermitteln usw.
Wenn ja, manuellen Seitenumbruch einfügen. Dann weiter, wobei jetzt auf 1224 zu prüfen ist.
Wenn du das nicht hinkriegst kannst ja mal deine Tabelle hochladen...
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Stellen für einen Seitenwechsel vorgeben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread