Aşağıdaki kodu Rapor butonunun Click olayına Yapıştırın.
Dim snoal As Integer
snoal = Me.SIRA_NU.Value
DoCmd.OutputTo acOutputReport, "RAPOR", "pdf", "D:\RAPORLAR\" & snoal & ".pdf", True
Burada Raporlar D Sürücüsünde RAPORLAR klasörüne kaydedilecektir. Siz nereye kaydetmek isterseniz buradaki yolu ona göre değiştirirsiniz.