Seitenlayout und Druckoptionen reset
28.02.2023 16:42:49
Richi
Wie kann ich mittels VBA alle Seiteneinstellungen aller Tabellenblätter zurücksetzen.
Speziell Fuss und Kopf Einträge.
Als Grundlage verwende ich diesen Code. Nur leider überschreibt mir dieser nicht wie gewünsht die Felder..... Teilweise kommen alte Einträge zum Vorschein. Desshalb meine Frage vom vollständigen Reset der Seitenlayout Felder.
Sub Druck_Setup()
Dim Ws As Worksheet
Dim Eingabe As String
Eingabe = InputBox("Revision Eingeben")
Application.PrintCommunication = False
For Each Ws In ThisWorkbook.Worksheets
With Ws.PageSetup
.PrintTitleRows = "$1:$1"
.PrintArea = "$A:$AD"
.FitToPagesWide = 1
.FitToPagesTall = False
.LeftHeader = "Referenz WBAAOB-7020-008" & Chr(10) & Eingabe
.CenterHeader = "&""Arial,Fett""&12Authorization BAAOB"
.RightHeader = "&A"
.LeftFooter = "&F"
.CenterFooter = ""
.RightFooter = "&P von &N"
End With
Next
Application.PrintCommunication = True
Sheets("AS 332").Select
Sheets("Steuerung").Visible = True
MsgBox "Drucksetup für PDF Export erstellt"
End Sub
Liebe Gruess
Richi