Raporlarınız zaten hazır olanlar ise print almak için yapmanız gereken tek rapor yerine döngüyle tüm raporları basmak. Rapor sorgu kaynağında Where koşulunuzu (TACALISANKAYDI.KIMNO=[Forms]![FRADYASYONMYN]![mtn_KimNo]), bu işlemi hangi formda yapmak istiyorsanız o forma ait veriyi kullanacak şekilde düzenlerseniz (Anamnez raporlarınız anamnez formundan, Radyoloji formlarınız Radyoloji formundan alıyor) veya bir başka yaklaşım ile raporlarınıza kimlik no üzerinden filtre uygulayarak aşağıdaki gibi bir döngü ile rahatlıkla bütün raporları alırsınız.

Private Sub pdfPM_Click()

    Dim x As Integer

    Dim StrRptNames As Variant, StrRpt As Variant

    

    StrRptNames = Array("RANAMNEZSYF", "RAPRADMYNSYF")

    For Each StrRpt In StrRptNames

        For x = 1 To 2

            DoCmd.OpenReport StrRpt & x, acViewPreview, , acHidden

            DoCmd.OutputTo acOutputReport, StrRpt & x, acFormatPDF

            DoCmd.Close acReport, StrRpt & x

        Next x

    Next StrRpt

End Sub