raporlara verdiğiniz isim sıralı olduğu -1,2,3,4 - için döngüye bağladım tek komutla yazdırılmasını istediğiniz raporlar için sıralamayı devam ettirip x değeri değiştirmeniz yeter
iyi çalışmalar
For x = 1 To 4
DoCmd.OpenReport "rpr_son" & x, acViewPreview, , "[Kimlik]=" & Me.mtnkimlik, acHidden
DoCmd.OutputTo acOutputReport, "rpr_son" & x, acFormatPDF ', dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir
DoCmd.Close acReport, "rpr_son" & x, acSaveNo
Next x