السلام عليكم ورحمة الله وبركاته
هذا الكود يقوم باحتساب عدد صفحات التقرير قبل طباعته
اسم التقرير Report_t1
لدي نموذج وبه مربع قائمة تحتوي على اسماء التقارير
ويوجد زر الطباعه والمعاينة والحفظ
ما ابحث عنه هو
تعديل لهذا الكود فقط
بدل كتابة اسم التقرير في= MyObject
ارغب ان تساوي مربع القائمة
بمعنى آخر عندما اريد طباعة تقرير تم اختياره من القائمة
تظهر رسالة بعدد الصفحات
Dim MyObject As Object
Dim x As Integer
Set MyObject = Report_t1 ' اسم التقرير
MyCount = MyObject.Pages
If MsgBox("هذا التقرير يتضمن " & [MyCount] & " صفحة." & vbNewLine & _
"هل تريد بدأ الطباعة؟ ", vbOKCancel) = vbOK Then
DoCmd.PrintOut
End If