Dateinamen automatisch
29.04.2013 14:30:31
Jean-Pierre
ich habe in einem Tabellenblatt folgenden Code:
Sub Drucken_auf_zwei_Drucker()
' Drucken_auf_zwei_Drucker Makro
' Makro am 03.02.2013 von * aufgezeichnet
Application.ActivePrinter = "HP Photosmart C7200 series auf Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"HP Photosmart C7200 series auf Ne04:", Collate:=True
Application.ActivePrinter = "PDF Druck auf FPP3:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF Druck auf FPP3:"
End Sub
Ich möchte nun gerne erreichen, das bei dem PDF Aufruf automatisch der Dateiname aus dem Zelleninhalt: C21 UND D21 voreingestellt wird.
Ist dies machbar, wenn ja wie?
Vielen Dank vorab für Eure Hilfe.
Mit besten Grüßen aus dem Frankenland
Jean-Pierre
Anzeige