pdf drucken mit button in excel einfügen

[eurosky]

Irgendwas mache ich falsch. Er druck mir nur das erste Tabellen Blatt statt alle 4 die ich angegeben habe.

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", "Tabelle7")
End Su

[ralf_b]

bei mir sieht das so aus. aber ich nutze hier die Exportfunktion und nicht die Druckergeschichte. 
arrPlanSheets ist auch nur ein String-Array, das durch Split() aus einem Text erstellt wurde.

Code:

  Worksheets(arrPlanSheets).Select
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=ThisWorkbook.Path & "\" & sFileName, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=True, _
                                    OpenAfterPublish:=True   

[MisterBurns]

Danke, das geht auch aber bei einigen Kollegen die mit Excel nichts am Hut haben nicht Aktiv?!

Also ganz ehrlich: Du plagst dich seit Tagen, einen simplen Code implementiert zu bekommen. Das ist kein Vorwurf, sondern nur ein Fakt.
Meine Anleitung kann man jedem Kollegen sofort zeigen. Ohne Programmierkenntnisse. Wenn übrigens die Kollegen Makros nicht aktivieren sollten, hilft dir der ganze Code nichts.

[eurosky]

Werde mich noch etwas damit spielen.
 Danke Euch für die Hilfe!