Private Sub Onizle_Click()
Dim rapor1 As String
rapor1 = "RaporAdi1"
DoCmd.OpenReport rapor1, acPreview 'AcPreview Ön izleme yapar
Dim rapor2 As String
rapor2 = "RaporAdi2"
DoCmd.OpenReport rapor2, acPreview
End SubEğer Ön izleme yapmadan direk yazıcıya göndermesini istersen;
Private Sub Yazdir_Click()
Dim rapor1 As String
rapor1 = "RaporAdi1"
DoCmd.OpenReport rapor1, acViewNormal 'acViewNormal Raporu açmadan direk yazdırır
Dim rapor2 As String
rapor2 = "RaporAdi2"
DoCmd.OpenReport rapor2, acViewNormal
End Sub