Office: pdf drucken mit button in excel einfügen

Guten Abend!

Habe mit zahlreicher Unterstützung geschafft einen Button auf mein dritten Tabellenblatt einzufügen Funktion fähig.

Nun brauche ich nochmals Hilfe.
Ich will mittels des PDF Drucken Buttons einige (nicht alle) Tabellenblätter in PDF abzuspeichern (Drucken).
Mein Code passt natürlich nicht mehr:

Sub MehrereArbeitsblätter()
Dim actPrinter As String
actPrinter = ActivePrinter
'Fehlerbehandlung, falls Abbruch
On Error Resume Next
ActiveSheet.PrintOut ActivePrinter:="Microsoft Print to PDF"
On Error GoTo 0
ActivePrinter = actPrinter
Dim ws As Worksheet
Dim wsArray As Variant

' Definiere die Namen der Arbeitsblätter
wsArray = Array("Tabelle7", "Tabelle3", "Tabelle4", "Tabelle5")
End Su

 

Moin,

und warum machst Du nicht hier weiter?

 

Da schwer erkennbar ist, dass sich oben unter «hier» ein Link verbirgt, kopiere ich ihn mal komplett:
pdf drucken mit button in excel einfügen