(تمت الاجابة) كيفة نجعل المستخدم يشاهد التقرير فقط بدون طباعتها

[فرهاد كريم]

بسم الله الرحمن الرحيم

تحية طيبة للجميع

اساتذة كيفة يمكن ان نجعل المستخدم يقوم بمشاهدة التقرير فقط و لا يمكن طباعتها اى اذا ضغط على زر الطباعة تضهر له رسالة ( بانه لايمكن طباعة التقرير فهو للمشاهدة فقط )

Sample.rar

[Bluemind]

اخوي

قم بانشاء زر امر في النموذج وضع فيه الكود التالي في حدث عند النقر او On click

   DoCmd.OpenReport "Report", acViewReport

الامر الموجود في الكود اعلاه AcViewReport يعرض التقرير فقط

[فرهاد كريم]

تمام استاذى العزيز ان شاء الله دائما موفق

[أبو آدم]

أخوتي الأعزاء

عذرا للتدخل !!

وإذا ضغط المستخدم على الزر الايمن للماوس واختار طباعة ؟؟؟

أو ضغط cntl+p ؟؟؟

ما العمل ؟؟

[فرهاد كريم]

و الله كلامك تمام استاذى العزيز و انا اشكر استاذى العزيز على الكود الذى كتبها و هى شغالة تمام ولكن استاذى العزيز الاتوجد طريقة لجعل المستخدم ان لايقوم بطباعة التقرير نهائيا

[Bluemind]

ملاحظه ممتازه بارك الله فيك وخصوصا Ctrl+P و اعتقد انها سهله بالنسبه لك اخي نارت

اخوي فرهاد

في حدث on key down للتقرير

ضع الكود التالي

If (Shift And acCtrlMask) > 0 And KeyCode = 80 Then KeyCode = 0

بالنسبه للرايت كليك او زر الفاره الايمن ضع الكود ادناه في حدث on load للتقرير

Dim i As Integer

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = False

Next i

و وفنا بالنتيجه

[فرهاد كريم]

ماشاء الله عليك استاذى العزيز و الله استاذى العزيز كل تمام ان شاء الله دائما موفق