Wiederholungszeilen
24.06.2021 13:56:16
Andrea
Kann mir jemand helfen? Ich versuche den unten stehenden Code, den ich im Forum gefunden habe, so umzubauen, dass mir die Zeilen 5&6 nicht ausgeblendet werden. Das Ziel ist die Zeilen auf der ersten Seite so darzustellen wie sie sind und auf den darauf folgenden Seiten nicht mehr.
Sub PrintSheet()
With ActiveSheet
.PageSetup.PrintTitleRows = "$1:$11"
.Rows("5:6").Hidden = True
.PrintPreview
.Rows("5:6").Hidden = False
End With
End Sub