Seitenlayout definieren
26.02.2023 16:24:34
Richi
Ich hoffe jemand von euch kann mir helfen.
Ich möchte auf meinen 46 Tabellen den gleichen Seitenlayout definieren um im Ansschluss daran ein PDF-File zu erstellen.
Drucktitel Seite einrichten:
Blatt:
Druckbereich-> A:AD
Wiederholungszeilen oben -> $1:$1
Papierformat:
Anpassen -> 1 Seiten breit / "leer" Seiten hoch
Den Code hab ich soweit erstellt. Problem ist, dass der Code die Variablen nicht übernimmt.
Liebe Gruess
Richi
---------------------------------------------
Sub Druck_Setup()
For Each ws In ThisWorkbook.Worksheets
With ws
.PageSetup.PrintArea = "$A:$AD"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintArea = "$A:$AD"
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
End With
Next
End Sub