Office: Drucken von mehreren Tabellenblättern in ein große pdf-Datei

Hallo Leute,

ich habe ein Programm erstellt, das sowohl Eingabemasken als auch Ausgabemasken hat. Der Ausdruck wird über CommandButtons geregelt. Der Code hinter dem Button lautet wie folgt:

Application.Dialogs(xlDialogPrinterSetup).Show
Worksheets("Tabelle 1").PrintOut
Worksheets("Tabelle 2").PrintOut
Worksheets("Tabelle 3").PrintOut

Die erste Zeile dient zur Druckerauswahl. Die ganze Sache funktioniert auch einwandfrei solange ich auf einem normalen Drucker ausdrucke. Wenn ich allerdings mit Freepdf XP einen ausdruck machen möchte, dann druckt er mir lediglich die letzte Seite aus. Mir ist auch so ziemlich klar, warum er das tut.
Gibt es eine Möglichkeit im VBA die Druckbereiche aller drei Tabellenblätter in eine einzige pdf-Datei zu bekommen?
Ich hatte da schonmal was versucht über Range ("xx").select aber das hat auch alles nicht wirklich geholfen. Weil ich letzendlich alle selectierten Bereiche nicht zusammenfügen kann.

Vielen Dank schonmal.

Gruß

 

Hallo,

habe das Problem nun selbst gelöst bekommen. Mit dem Tip von folgendem Link (oberer Teil):

http://www.pctipp.ch/praxishilfe/ku...excel_tabellen_in_einzelnes_pdf_ausgeben.html

Ich habe die einzelnen Sheets direkt markiert und diese dann mit FreePDF-XP ausdrucken lassen. Die Marko-Aufzeichnung ist in diesem Fall eine große Hilfe ;-) . Als Ergebnis erhalte ich dann alle drei gewollten Sheets in EINER pdf-Datei.
Der besseren Info für Leute mit dem gleichen Problem, hier der aufgezeichnete Makro-Code:

Application.Dialogs(xlDialogPrinterSetup).Show 'Druckerauswahl
Sheets(Array("Tabelle 1", "Tabelle 2", "Tabelle 3" _
)).Select 'Auswahl und Selektierung der einzelnen Sheets
Sheets("Eingabe 2-Teilig").Activate 'Aktivieren des Ausgangssheets (ka warum)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Druckbefehl
Worksheets("Angaben2").Activate 'nicht markiertes Sheet aktivieren
Worksheets("Eingabe 2-Teilig").Activate 'Ausgangssheet aktivieren

Die letzten beiden Befehle habe ich gesetzt, weil ansonsten die drei gedruckten Sheets immernoch markiert sind. Ich fand das einfach unnötig und störend. Ich hoffe ich kann hiermit jemandem weiterhelfen. Mich hat es viel Nerven gekostet :-D