طباعة اكثر من نسخه

استخدمت هذا الكود

'ØÈÇÚÉ ÝÇÊæÑå
Private Sub print_fat_Click()
Dim strDocName As String
Dim strWhere As String
   strDocName = "qur_fat_2_pr"
   strWhere = "[n_fato]=" & Me!n_fato
   DoCmd.OpenReport strDocName, acNormal, , strWhere
End Sub
'''ØÈÇÚÉ ÇßËÑ ãä ÕÝÍå
'Private Sub RPRINT_Click()
'DoCmd.SelectObject acReport, "TAB01", True
'DoCmd.PrintOut , , , , 2
'DoCmd.RunSQL "UPDATE TAB01 SET TAB01.PRINT = False;"
'End Sub

لكن لم يعمل معي ويقوم بطابعة الشاشة التي امامي

طبعا اشكر من قام بعمل هذا الكود

برجاء المساعده في عمل هذا الكود

انا لم افهم المقصود من tabo1 وكذلك UPDATE TAB01 SET TAB01 هل جدول ام اسم تقرير ام استعلام

نشكركم وارجو الرد من دون اي امر

اخي الفاضل شمس الوادي

راجع هذا الرابط

/index.php?showtopic=110889

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

DoCmd.SelectObject acReport, "TAB01", True
DoCmd.PrintOut , , , , 2

طبعا هذا الكود يوضع في حدث عند النقر لزر امر الطباعة

TAB01 هو اسم التقرير الذي لديك

2 هو عدد النسخ المطلوب طباعتها

بارك الله فيك وسوف اقوم بتجربته

الأخت زهرة .. بارك الله فيكِ وزادك علما

ماذا لو اردنا ان تظهر كلمة ( صورة ) على النسخة الثانية من كل صفحة من صفحات التقرير المطبوع

الأخت زهرة .. بارك الله فيكِ وزادك علما

ماذا لو اردنا ان تظهر كلمة ( صورة ) على النسخة الثانية من كل صفحة من صفحات التقرير المطبوع

ارجو الرد ولو بـ لا اعلم