raporu açtığınızda farenin sağ tuşuna basıp yazdır dersiniz çıkan ekranda yazıcı olarak "Microsoft print to pdf" seçerseniz bilgisayara kaydeder
yada  doğrudan bilgisayara kaydetmesi için butonun kodunu değiştirebilirsniz
arama formundaki rapor butonunun kod satırında yer alan aşağıdaki kodu

Private Sub BtnRapor_Click()

Dim SQLAra, XKriter, Xvarsay As String

If IsNull(Me.AKAramaGecmisi) Then GoTo 10

If Me.OnayAnahtar = True Then Xvarsay = "[anahtar_kelime]" Else Xvarsay = "[anahtar_kelime] & ' ' & [metin]"

If IsNull(Me.AKKriter) Then Me.AKKriter.Value = "or"

XKriter = Replace(Trim(Me.AKAramaGecmisi), " ", "*' " & Me.AKKriter & " (" & Xvarsay & ") Like '*")

SQLAra = " SELECT vaaz.* FROM vaaz " & _

         " WHERE (((" & Xvarsay & ")" & _

         " Like '*" & XKriter & "*' )) ORDER BY sirano;"

DoCmd.OpenReport "RprVaazPlan", acViewPreview, , , , SQLAra

Exit Sub

10 MsgBox (" Lütfen konu seçiniz")

AKAramaGecmisi.SetFocus

End Sub 

aşağıdaki kodla değiştiri

Private Sub BtnRapor_Click()

Dim SQLAra, XKriter, Xvarsay As String



If IsNull(Me.AKAramaGecmisi) Then GoTo 10



If Me.OnayAnahtar = True Then Xvarsay = "[anahtar_kelime]" Else Xvarsay = "[anahtar_kelime] & ' ' & [metin]"

If IsNull(Me.AKKriter) Then Me.AKKriter.Value = "or"



XKriter = Replace(Trim(Me.AKAramaGecmisi), " ", "*' " & Me.AKKriter & " (" & Xvarsay & ") Like '*")



SQLAra = " SELECT vaaz.* FROM vaaz " & _

         " WHERE (((" & Xvarsay & ")" & _

         " Like '*" & XKriter & "*' )) ORDER BY sirano;"

DoCmd.OpenReport "RprVaazPlan", acViewNormal, , , , SQLAra

Exit Sub

10 MsgBox (" Lütfen konu seçiniz")

AKAramaGecmisi.SetFocus

End Sub