MALESEF YAZMIYOR

sayın hedefkaya,

talebinize yönelik olarak,
EK'te,yeni bir alternatif örnek uygulama mevcuttur.inceleyebilirsiniz.

iyi çalışmalar,
saygılar.

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