Seitenumbruch ab 2ter Seite
04.10.2005 10:28:00
Michael
ich habe vorgestern dieses Makro hier im Forum bekommen. nach etws rumprobieren hat es auch funktioniert. Leider gibt es ein kleines Problem, da ich wiederkehrende Zeilen in jeder Seite definiert habe, ibt es rechen Probleme. In der ersten Seite zählt das Makro inklusive der wiederkehrenden Zeilen (3 Stück) ab der zweiten Seite berücksichtigt das Makro die wiederkehrenden Zeilen bei der Berechnung nicht, so das von Seite 2 drei Zeilen auf die Seite drei verschoben werden, die nicht dahingehören.
Gibt es dafür eine Lösung?
Gruß
Michael
Sub seitenumbruch()
Dim i As Integer, lastR As Integer
Dim tmpR As Integer
Dim varRowPrint As Integer
'Anzahl Zeilen definieren
varRowPrint = 46
With ActiveSheet
lastR = .UsedRange.Rows.Count
tmpR = 0
For i = 1 To lastR
If .Cells(i, 1).EntireRow.Hidden = False Then
tmpR = tmpR + 1
End If
If tmpR = varRowPrint Then
.HPageBreaks.Add before:=.Cells(i, 1)
tmpR = 1
End If
Next i
End With
End Sub