Modüldeki kodları aşağıdaki ile değiştir

Public Function Ver()

DoCmd.OutputTo acOutputReport, "rapor", "PDFFormat(*.pdf)", "C:\rapor\" & Dlookup ("[Rapor Adı]", "VERİ") & ".pdf", True, , , acExportQualityPrint

End Function