Drucken mit VBA in Excel

[lincolnhawk]

Hallo zusammen,

ich hoffe ihr könnt mir helfen

Ich habe eine Exceldatei mit mehreren Dokumentblättern (diese Tabs in Excel).
Davon möchte ich mal diejenigen, und mal diejenigen drucken, verschiedene Kombinationen also. Hab mir dazu eine Form gebastelt (Anhang).
Nun ist aber mein Problem, dass ich die markierten Blätter nicht alle einzelnd, sonder in EIN PDF drucken möchte.

Ich drucke bisher mit

Worksheets(1).PrintOut , Copies:=1, Preview:=False
Worksheets(2).PrintOut , Copies:=1, Preview:=False

usw.

Damit druckt er aber jedes Blatt einzelnd in ein eigenständiges PDF, was ich ja nicht möchte
Er soll ja die markierten alle in EIN PDF packen...

Jemand ne Idee wie ich das lösen könnte?
Danke im voraus.

[Overlocker]

Oben Links auf Drucken drücken :thumbsup: :thumbsup:

[lincolnhawk]

Ich möchte ja aus meinem programmierten Dialog drucken...
Somit entfällt das Drucksymbol.

[xandros]

keine direkte Lösung, aber vielleicht ein Denkanstoss.....

Warum greifst du zum Drucken nicht direkt auf das Workbook zu anstatt auf die einzelnen Worksheets darin?

Ich könnte mir vorstellen, wenn man die Worksheets (Bezeichnungen) als Elemente des Workbooks in ein Array einliest und dieses Array anschliessend als Objekt (Workbook) druckt, sollte das den gewünschten Erfolg haben.
Ein Worksheet ist ja ein untergeordnetes Element von Application.Workbook.....
(bin aber aus VBA in Bezug auf Excel schon seit Jahren raus. daher auch keine genaueren Angaben möglich.)

[lincolnhawk]

Hey xandros,

danke für den Tipp, das Problem ist nur, das ich zum Drucken den Druckdialog nutze, der die markierten Tabellenblätter drucken soll.
So kann der User noch Druckereinstellungen vornehmen. Direktes Drucken entfällt also auch leider

Edit: Ok, danke. Habs gelöst.
Kopiere die Indizes der einzelnen Tabellenblätter die markiert werden sollen in ein Array und das schmeiß ich dann in:

Worksheets(hier das Array rein).Select