Printtofile
20.07.2004 12:55:00
Crame
ich hatte gestern schon mal in das Forum geschrieben. Ich habe ein Problem das der Name des Dokuments und das aktuelle Datum in ein entsprechendes Verzeichnis gelegt wird. der Pfad wird über den Destiller vergeben das ist nicht das Problem aber wenn Dateien in dem Verzeichnis liegen die den selben Namen haben werden diese überschrieben und es wird nicht nachgefragt ob diese Überschrieben werden sollen obwohl es im Druckertreiber so hinterlegt ist. Also muss ich den Pfad mit Uhrzeit angeben aber das funktioniert nicht. Als trüffel wäre es auch sehr gut wenn das Verzeichnis variabel wäre also z.B. Monatsweise unter einem Laufwerksbuchstaben. Kann mir vielleicht jemand helfen... BITTE BITTE HILFE HILFE
Sub PDF()
Dim name As String
name = "Name des Dokuments" & Format(Now, "dd.mm.yyyy") & ".pdf"
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