Office: (Office 2010) Bericht -> pdf, eigener Dateiname

Liebe Leute - ich brauche eure Hilfe!

3h sind nun vergangen - Internetrecherche & Co. haben nichts gebracht, auch das Durchforsten des Forums ... folgendes Problem:

Ich habe ein Formular in welches Daten eingetragen werden - wie üblich. Jetzt die Anforderungen:
-- es soll nur der aktuelle Datensatz ausgegeben werden (das hat noch funktioniert)
-- es gibt einen Button der den Bericht als pdf abspeichern soll (nur den aktuellen Datensatz)
-- der Speichername soll Erstuntersuchung & Vorname & Nachname sein
-- (optional) der Speicherort soll der Ort sein wo die Datenbank liegt
-- (optional) es soll nicht im Hintergrund gespeichert werden, sondern man soll schon das Dialogfenster "Speichern" bekommen (halt schon mit dem richtigen Dateinamen als Vorschlag)

Folgender Code funktioniert eigentlich ganz gut, aber da habe ich das Problem, dass er mir dies in meinen Eigenen Dateien Ordner reinwirft und die Datei immer "Desktop - Ertuntersuchung Vorname Nachname.pdf" heißt ...


Private Sub Datensatz_speichern_Click()

'aktuellen Datensatz speichern
DoCmd.RunCommand acCmdSaveRecord

'aktuellen Bericht öffnen
DoCmd.OpenReport "repErstuntersuchung", acViewReport, , "ID=" & Me.ID.Value

'Speichern des Datensatzes
On Error GoTo fehler
DoCmd.OutputTo acOutputReport, "repErstuntersuchung", acFormatPDF, CurrentProject.Path & " - Erstuntersuchung " & Me!Vorname & " " & Me!Nachname & ".pdf"
Exit_fehler:
Exit Sub
fehler:
MsgBox Err.Description
Resume Exit_fehler

End Sub


--- wenn ich CurrentProject.Path weglasse speichert er es gar nicht (oder ich wüßte nicht wohin ... *frown.gif*

DANKE für eure Antworten

:)

 

Bin soeben noch drauf gekommen: er speichert die pdf-Dateien immer eine Ebene weiter rauf ... dh wenn ich die Datenbank in einen Ordner auf dem Desktop gebe, bekomme ich die PDFs auf den Desktop gelegt ... schräg ... und ich weiß nich woran es liegt ...

 

Nachfrage: Hast Du Deinen zusammengebauten Pfad auch mal angeschaut?
Code:

Mir fehlt da ein Backslash.

 

Hallo,

vermutlich unter "Eigene Dateien" in dein Benutzerverzeichnis.

... oder im aktuellen DB-Verzeichnis.

 

Thx für eure Antworten - die und noch weitere 2h herumprobieren haben geholfen eine akzeptable Lösung zu finden:

DoCmd.OutputTo acOutputReport, "repErstuntersuchung", acFormatPDF, "c:/akh/" & "Erstuntersuchung_" & Me!Vorname & "_" & Me!Nachname & "_" & Me!Testdatum & ".pdf"

Man muss halt den Ordner akh vorher auf c: erstellen ... und es wird sofort gespeichert, ohne, dass man nochmals die Chance auf Veränderung des Dateinamen hat ... aber es reicht (doppelt gemeint) *Smilie

 

Slash (/) Backslash (\)

 

Hi,

wozu einen neuen Ordner anlegen, dein erster Plan funktioniert doch auch, wenn du's richtig machst: Code: