Private Sub Komut0_Click()
On Error Resume Next

Dim CurrentDirectory, ExportPath As String

CurrentDirectory = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
ExportPath = CurrentDirectory & "teklifler\" & Date & "\"

    If mdl_FolderExists(ExportPath) Then
        'Klasör zaten var!
    Else
        MkDir ExportPath
    End If


Dim blRet As Boolean
blRet = ConvertReportToPDF("Rapor1", vbNullString, ExportPath & "Rapor1.pdf", False, False, 150, "", "", 0, 0, 0)
blRet = ConvertReportToPDF("Rapor2", vbNullString, ExportPath & "Rapor1.pdf", False, False, 150, "", "", 0, 0, 0)

End Sub