uyarınız için teşekkürler sorunu düzeltmeye çalışacağım

On Error GoTo AnaForm_RaporYaz_Click_Err

    DoCmd.OpenReport "RprGMenuMalzemeMiktar", acViewPreview, "", "", acNormal

    DoCmd.RunCommand acCmdPrint

AnaForm_RaporYaz_Click_Exit:

    Exit Sub

AnaForm_RaporYaz_Click_Err:

    MsgBox Error$

    Resume AnaForm_RaporYaz_Click_Exit

yazdığınız kod sorunsuz çalıştı çok teşekkürler DD