Alle Tabellenblätter bis auf eins in ein
02.03.2023 17:13:18
Haustein
bisher habe ich folgendes script für den Druck
möcht nun gerne, dass alle diese Seiten bis auf die Seite Gesamt und Musterseite in eine pdf geschrieben werden
könnt ihr da helfen
Sub printsheets()
Dim dontPrint As Object
Dim ws As Worksheet
Set dontPrint = CreateObject("Scripting.Dictionary")
dontPrint.Add "Gesamt", 1
dontPrint.Add "Musterseite", 2
'dontPrint.Add "Logs", 3
For Each ws In ActiveWorkbook.Worksheets
If dontPrint.Exists(ws.Name) Then
Else
ws.PrintOut
End If
Next ws
End Sub