كيف يتم طباعة نسختين من التقرير داخل الفورم

جرب هذا الكود

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "REPORTNAME", , , "[ID]='" & forms![Forname]![TXTBOXNAME] & "'" 
DoCmd.SetWarnings False
DoCmd.PrintOut acPages, , , , 2
DoCmd.Close acReport, "REPORTNAME"
DoCmd.SetWarnings True

لماذا لا ترتاح من هذه المشكلة وتكتب سطر الكود مرتين متتاليتين ؟؟

أخي مهند هل تقصد كتابة الكود على النحو التالي

DoCmd.OpenReport "REPORTNAME", , , "[ID]='" & forms![Forname]![TXTBOXNAME] & "'"
DoCmd.OpenReport "REPORTNAME", , , "[ID]='" & forms![Forname]![TXTBOXNAME] & "'"

نعم ..

أو يستخدم هذا الـ Function :

Public Sub RepPrint( MyRep as string, optional Wstring as string = "",Optional N as byte = 1)
  Dim R as Byte
  For R = 1 to N
        DoCmd.OpenReport MyRep ,,,Wstring
  next R
End Sub