PrToFileName
19.07.2004 17:31:48
crame
ich bin am verzweifeln, ich möchte ein PDF erstellen in einem bestimmten Verzeichnis, automatisiert aber nicht die vorhandenen Dateien überschreiben. Also muss ich den Dateinamen vorgeben mit der genauen Uhrzeit. Die Parameter fehlen mir auch noch für die Uhrzeit aber ich bin schon seit 1 Arbeitstag am tüffteln und wie man sieht nicht am Ziel. Vielleicht kann mir jemand helfen, hier der vorhandene Code:
Sub PDFDok()
Dim name As String
Dim Heute
Heute = Now
name = tester & "-" & "heute"
EingangsDrucker = ActivePrinter 'Umgebung festhalten
Application.ActivePrinter = "Acrobat Distiller auf Ne06:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller auf Ne06:", PrintToFile:=True, Collate:=True, PrToFileName:=name
ActivePrinter = EingangsDrucker 'Ursprüngliche Umgebung wieder herstellen
End Sub
hoffe mir kann jemand helfen...
Anzeige