TEŞEKÜRLER SAYIN atoz112 BU SEFER OLDU

BENDE AŞAĞIDAKİ GİBİ BİR YÖNTEM BULDUM
BAŞKA ARKADAŞLARIN İŞİNE YARAR DİYE EKLİYORUM

Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
DoCmd.OpenReport "Rapor1", acViewPreview, "", "", acNormal
DoCmd.RunCommand acCmdPrint
DoCmd.RunCommand acCmdClose
Exit_Komut1_Click:
Exit Sub
Err_Komut1_Click:
DoCmd.RunCommand acCmdClose
Resume Exit_Komut1_Click
End Sub