Kullanman gereken kod aşağıda

Dim DosyaYeri, DosyaAdi, a, x, y As String

        

        x = "declet hastanesi" 'Me.hastane_adi

        y = "123121" 'Me.ihale_kodu

        a = "malzeme alımı" 'Me.ihalenin_adi

        

    MkDir CurrentProject.Path & "\" & x

    MkDir CurrentProject.Path & "\" & x & "\" & y

    MkDir CurrentProject.Path & "\" & x & "\" & y & "\" & a

      

    DosyaYeri = CurrentProject.Path & "/" & x & "/" & y & "/" & a

    DosyaAdi = DosyaYeri & "/teklif_mektubu.pdf"



DoCmd.OutputTo acOutputReport, "rpr_teklifmektubu", "PDFFormat(*.pdf)", DosyaAdi, False, "", , acExportQualityPrint

Ayrıca, konu açarken yaptığınız yazım hatalarını biran önce düzeltiniz.