Speichern in festgelegten Pfad

[mikel]

Hallo zusammen,
ich würde geren einen Report (Angebot) in den Ordner E:// xxx/, bei aufruf der Datei speichern.
Wie kann ich die Pfad-Datei in VBA festlegen.

Momentan bin ich an dieser VErsion gescheitert

Dim strReport As String
 Dim strPfad As String
 strReport = "rpt_kundenAngebote"

 On Error GoTo Err_btnAngebotDrucken_Click
 
 strPfad = CurrentProject.Path & "\" & "Angebot_" & Format(Now(), "yyyy.mm.dd_") & angebotNummer & ".pdf"
 DoCmd.OpenReport "rpt_kundenAngebote", acPreview, , "angebots_id = " & Me.[angebots_id]
 DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strPfad

Exit_btnAngebotDrucken_Click:
Exit Sub

Err_btnAngebotDrucken_Click:
MsgBox Err.Description
Resume Exit_btnAngebotDrucken_Click

Es wird alles in den 1.Ordner gespeichert. Sollte aber in den Unterordner Angebote gehen

Danke für Eure Hilfe und einen guten Rutsch

 

[andyfau]

Hallo,
dann muss das auch in der Pfadangabe angegeben werden:

strPfad = CurrentProject.Path & "\Angebote\" & "Angebot_" & Format(Now(), "yyyy.mm.dd_") & angebotNummer & ".pdf"

Ich würde in der Datumsangabe des Dateinamens auch keine Punkte (und andere Sonderzeichen) verwenden. Desweiteren würde ich auch die Zeit in den Dateinamen nehmen, falls dasselbe Angebot an einem Tag 2x gedruckt wird.

 

[mikel]

Danke, habe ich so umgesetzt.