Zwei PDF's drucken

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,

ich bräuchte mal eure Hilfe.
Ich habe eine Tabelle die Aufgaben von zwei Standorten enthält. Ein Makro fügt zwei Tabellen ein und sortiert nach den zwei Standorten. Jetz müsste ich diese zwei neuen Tabellen über ein Makro in PDF umwandeln. Es geht aber leider nur immer eines, wenn ich das andere ausblende, ansonsten öffnet sich das PDF nur einmal und ein leeres Blatt erscheint.

hier mein Code:

'Dokument in PDF drucken

Sheets(„IN“).Select
Application.ActivePrinter = „PDF-ConverterPro auf Ne01:“
Selection.PrintOut Copies:=1, ActivePrinter:=„PDF-ConverterPro auf Ne01:“, Collate:=True

Sheets(„BRX“).Select
Application.ActivePrinter = „PDF-ConverterPro auf Ne01:“
Selection.PrintOut Copies:=1, ActivePrinter:=„PDF-ConverterPro auf Ne01:“, Collate:=True

Gibt es eine Schleife, in die ich das Drucken packen kann. Ich habe schon erfahren, dass es anscheinend technisch -so wie es gerade dasteht - nicht geht.

Vielen Dank für eure Hilfe.

Gruß
Simone

#2

Guten Tag,

Sorry, bin da leider auch überfragt.
Dir noch nen schönen Abend und eine besinnliche Weihnachtszeit.
Thorsten

ich bräuchte mal eure Hilfe.
Ich habe eine Tabelle die Aufgaben von zwei Standorten
enthält. Ein Makro fügt zwei Tabellen ein und sortiert nach
den zwei Standorten. Jetz müsste ich diese zwei neuen Tabellen
über ein Makro in PDF umwandeln. Es geht aber leider nur immer
eines, wenn ich das andere ausblende, ansonsten öffnet sich
das PDF nur einmal und ein leeres Blatt erscheint.

hier mein Code:

'Dokument in PDF drucken

Sheets(„IN“).Select
Application.ActivePrinter = „PDF-ConverterPro auf Ne01:“
Selection.PrintOut Copies:=1,
ActivePrinter:=„PDF-ConverterPro auf Ne01:“, Collate:=True

Sheets(„BRX“).Select
Application.ActivePrinter = „PDF-ConverterPro auf Ne01:“
Selection.PrintOut Copies:=1,
ActivePrinter:=„PDF-ConverterPro auf Ne01:“, Collate:=True

Gibt es eine Schleife, in die ich das Drucken packen kann. Ich
habe schon erfahren, dass es anscheinend technisch -so wie es
gerade dasteht - nicht geht.

Vielen Dank für eure Hilfe.

Gruß
Simone

#3

Hallo Simone,

adhoc kann ich Dir nicht sagen, wie das aus VBA gehen könnte, da Du mit dem Druckbefehl außerhalb VBA bist. Also solltest Du entweder vor dem Drucken die Dokumente(Blätter) auf ein gemeinsames Blatt kopieren, die Formate und Inhalte übernehmen und einen Seitenumbruch hinter die erste Tabelle setzen (ich zeichne sowas immer mit dem Makrorekorder auf und mache es dann schön) oder Du druckst in ein Tool wie Fineprint und erst dann in das PDF. Soweit ich mich erinnere, gibt es auch Tools, um pdfs zusammenzufügen. Schau doch mal auf den Heise-Downloadseiten nach. Die kannst Du dann ggf. (wenn ein API oder Kommandozeilenaufruf existiert) aus Deinem Code aufrufen.

Ich hoffe, geholfen zu haben.

MfG

Markus

#4

Hallo Simone,

versuch mal folgendes:

Sheets(„IN“).Select (True)
Sheets(„BRX“).Select (True)
SelectedSheets.PrintOut Copies:=1, Collate:=True

Gruß
Frank