Private Sub Komut11_Click()

Dim MyReport As String

MyReport = CurrentProject.Path & "\dosya\" & Me.ILKTARIH & ".pdf"

DoCmd.OutputTo acOutputReport, "EK-1", "PDFFormat(*.pdf)", MyReport, False, "", 0

End Sub