مرحبا دكتور حلبي
في حدث عند النقر لامر طباعة ضع الكود التالي
On Error Resume Next
DoCmd.SelectObject acReport, "اسم التقرير", True
DoCmd.RunCommand acCmdPrint
بخصوص الفترة للزمنية للتقرير باضافة مربعي نص غير مرتبطة في التقرير
المربع الاول في مصدر البيان للمربع ضع التالي وغير ما يلزم اسم النموذج وحقل بداية التاريخ حسب الاسماء في نموذجك
=[Forms]![اسم_النموذج]![start1]
وفي المربع الثاني.وغير ما يلزم
=[Forms]![اسم_النموذج]![end1]