Ich habe in einer Tabelle C1-O248 als Druckbereich definiert und diese unterteilt
Sub Druckbereich()
'Druckbereiche aufheben
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.PrintTitleRows = "$3:$8"
.PrintTitleColumns = ""
End With
'Druckbereich festlegen
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "- &P -"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.078740157480315)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 95
.PrintArea = "$C$1:$O$68,$C$69:$O$134,$C$135:$O$201,$C$202:$O$248"
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
Nur das funktioniert so leider nicht.
Hat jemand eine Idee, wie ich den Druckbereich auch einer Seite so unterteilen kann, dass er auch beim erneuten öffnen der Tabelle so bleibt?
Gehe ich nämlich auf Seitenansicht bekomme ich nach erneutem Öffnen der Tabelle in der Seitenansicht C1-O74 angezeigt, anstatt c1-O68.
Vielleicht kann mir da jemand helfen.
Bernie