Bericht als pdf in Ordner ablegen

[maka]

Hallo Access Spezialisten

... möchte folgendes realisieren und kommen einfach nicht weiter, vieleicht könnt Ihr mir helfen.
Vor dem schließen des erstellten Angebotes soll abgefragt werden ob das geöffnete Angebot im abgelegt werden soll.
Bei Ja, wird
1.) geprüft ob alle Ordner vorhanden sind, wenn nicht werden diese angelegt
2.) Drucker auswählen in meinem Fall ist es der Amyuni PDF Converter
3.) unter folgendem Dateinamen speichern, Dateiname setzt sich wie folgt zusammen (Kundennummer, Geschäftsstelle_Angebotnummer_Datum_Uhrzeit) 
Beispiel:  5899725_2011052_20110418_1012 121642

Funkt soweit, nur das mir das Angebot nicht im Ordner Angebot sondern eine Ebene höher im Geschäftsstellenordner abgelegt wir.
Hat jemand eine Idee worann da liegen kann.

On Error GoTo Err_Ablage_Click

    Dim strMsg As String, strTitle As String
    Dim sMldg As String
    Dim aTitel As String
    Dim iRes As Integer
    Dim Pfad As String
    Dim Dateiname As String
    Dim fs, f
    Dim AlterDrucker As String
       
       
        [Form_Angebot].Refresh
        Me.Requery
       
        aTitel = "Angebot ablegen"
        sMldg = "Soll dieses Angebot abgelegt werden?"
        iRes = MsgBox(sMldg, vbYesNo + vbQuestion + vbDefaultButton1 + vbSystemModal, aTitel)
        Select Case iRes
        Case vbYes
               
    Rem -------- Kundenordner anlegen ---------
           
        Set fs = CreateObject("Scripting.FileSystemObject")
        If fs.FolderExists("c:\" & Me.N1) = 0 Then
       
        Set f = fs.CreateFolder("c:\" & Me.N1)
        Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma)
        Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot")
        Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder")
        Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan")
        Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges")
       
    Rem -------- Geschäftsstelle im Kundenordner anlegen ---------
       
        Else
         If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma) = 0 Then
         Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma)
         Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot")
         Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder")
         Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan")
         Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges")
         
        End If
        End If
         
    Rem -------- Prüfen ob alle Ordner im Geschäftsstellenordner vorhanden sind ---------
    Rem -------- wenn fehlt angelegt ---------
         
            If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot") = 0 Then
            Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot")
        End If
            If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder") = 0 Then
            Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder")
        End If
            If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan") = 0 Then
            Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan")
        End If
            If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges") = 0 Then
            Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges")
        End If
     
                 
  ' Drucker auswählen
        AlterDrucker = Application.Printer.DeviceName
        Set Application.Printer = Application.Printers("Amyuni PDF Converter")
     
  ' Bericht öffnen
        Rem DoCmd.OpenReport "Angebot_Berichtvorschau_KB1", acPreview, , "AngebotNr =" & Me!AngebotNr
   
  ' Dateinamen vergeben
        Dateiname = ConvertReportToPDF("Angebot_Berichtvorschau_KB1", vbNullString, _
                               "c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot" _
                               & Me.N1 & Me.N2 & "_" & [Angebotnummer] & "_" & "V" & Format$(Now, "yyyymmdd  hhmmss") & ".pdf", False, True, 0, "", _
                               "", 0, 0)

[daolix]

Ohne deinen Code jetzt weiter geprüft zu haben, aber ich glaube bei der Pathangabe fehlt nach Angebot ein \

Code [Auswählen] Erweitern


...
Dateiname = ConvertReportToPDF("Angebot_Berichtvorschau_KB1", vbNullString, _
                               "c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot\" _
                               & Me.N1 & Me.N2 & "_" & [Angebotnummer] & "_" & "V" & Format$(Now, "yyyymmdd  hhmmss") & ".pdf", False, True, 0, "", _
                               "", 0, 0)

[maka]

... SUUUPER genau das war es
DANKE