اخي معذرة لا يمكنني فتح المرفق للتعديل بسبب الاصدار
تفضل هذا مطلوبك الصقه في حدث النقر على زر داخل نموذجك
مع الاخذ بالاعتبار تغيير اسم التقرير بالاسم الذي في برنامجك
DoCmd.OpenReport "RepName", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True
If MsgBox("اقلب الورقة ان كنت تريد الطباعة في الخلف", vbOKOnly, "") = vbOK Then
DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True
Else
DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True
End If
DoCmd.Close acReport, "RepName"