رساله تحذيريه عند الطباعه

ضع في النموذج كود يقوم بحساب عدد صفحات التقرير

فاذا كان العدد = 1 فيقوم بالطباعة.

أوليس كذلك ؟

ممكن الكود لو سمحت جزاك الله كل خير 

كيف هيحسب عدد الصفحات في النموذج قبل فتح التقرير

يفتح التقرير مثلاً (School) ثم يقوم بحساب عدد الصفحات

فاذا كان العدد 1 فيقوم بالطباعة ، واذا لم يكن فيقوم بغلق التقرير واظهار رسالة بعدد الصفحات

DoCmd.OpenReport "School", acViewPreview, , , acHidden
Gs = Reports(School).Pages
If (Gs) = 1 Then
DoCmd.OpenReport "School", acNormal
Else
DoCmd.close acReport, "School", acSaveNo
MsgBox ("عدد صفحات التقرير : " & Gs & " ")
End If

جزاك الله كل خير اخي العزيز جعله الله في ميزان حسناتك

وجزاكم أخي الكريم. اللهم آمين