Office: PDF drucken mit vorgegebenen Namen

Moin Moin,

habe da mal eine Frage:

Ich möchte mittels VBA den Drucken-Dialog aufrufen. Das geht ja recht einfach: Application.Dialogs(xlDialogPrint).Show

Nun möchte ich aber, dass der Drucker, der Dateiname und der Pfad zum speichern mit übergeben werden, sodass ich diese dann nur noch bestätigen muß.
(Wenns auch ohne bestätigen geht, muß ich aber die Seitenzahl mit angeben!)

Danke und Gruß

Hasi0605

:)

 

Moin, Hasi0605,

sieh Dir bitte das Vorgehen von Ramses in PDF Drucker im Makro ansteuern an oder die Auflistung der zusätzlichen Parameter für das Dialogfeldkonstante xlDialogPrint an: range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate.

 

Moin jinx,

danke für die schnelle Antwort.

bis auf eine Kleinigkeit funktioniert es sehr gut;

Der Dateiname wird nicht übernommen, bzw es wird der Name der aktuellen Datei verwendet. (Habe aber einen anderen Namen zu vergeben.)

Vielleicht hilft die Info, das ich CIB pdf brewer 2.3.10 verwende.
(Da muß ich immer, bevor der Dateiname vergeben wird, die Freeware bestätigen.)

Gruß

Hasi0605

 

Moin, Hasi0605,

leider habe ich keine Vorstellung, wie das mit der erwähnten Software und dem Hinweis funktionieren könnte (oder ob überhaupt) - ich setze eine andere Version (Acrobat) ein...

 

Moin jinx,

da ich keine Vollversion von Acrobat habe, muß eine andere Lösung her.

Da das Makro ja so weit funktioniert, fehlt ja nur der Dateiname.

Ich habe gerade mit ActiveWorkbook.Name = "ABC" gearbeitet, aber eine Fehlermeldung (Zuweisung an schreibgeschützte Eigenschaft nicht möglich) bekommen.

Dies wäre aber eine akzeptable Lösung, da ich den Name ja hinterher wieder auf den Alten setzten kann.

Gibt es da noch eine andere Möglichkeit?

Gruß

Hasi0605

 

Moin, Hasi0605,

einen neuen Namen für eine geöffnete Mappe erhältst Du nur bei Nutzung von SaveAs (bzw. für eine Kopie der Mappe mit SaveCopyAs)...

 

Moin Moin,

da das auch nicht geht, habe ich mich für die Lösung über die Zwischenablage aus dem Thread http://www.ms-office-forum.net/forum...zwischenablage entschieden.

So läuft es so, wie ich es mir wünsche.

Danke und einen Tag noch

Hasi0605