Wiederholungszeilen ?
Leitz
Möchte fragen ob es möglich ist die Druckwiderholungszeilen nur bei bestimmten Seitenumbüchen zu setzen oder ist das nur generell für jede Seite möglich?
Habe folgenden Code:
Sub PageBreaks()
Dim lngRow As Long
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lngRow, 18).Text = "Umbruch" Then
ActiveSheet.HPageBreaks.Add Cells(lngRow - 1, 1) 'Seiten einrichten
With Rows(lngRow - 1)
ActiveSheet.PageSetup.PrintTitleRows = "$4:$5" 'Wiederholungszeilen setzen
End With
End If
Next
MsgBox "fertig"
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
lngRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$N" & lngRow
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Seite &P von &N"
.RightHeader = "Fuger G./Salzburg, &D"
.LeftFooter = ""
.CenterFooter = "&F"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 90
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
Das funtioniert bis auf die Wiederholungszeilen sehr gut.Bitte um Hilfe bei den Wiederholungszeilen!
Gruß
Leitz G.