منع الطباعة في وضع PERVIEW REPORT

[صابر سليمان]

السلام عليكم 
يوجد فاتورة  عندي في البرنامج لها حد اقصي للطباعة  ( 5 نسخ فقط )
لكن تقابلني مشكلة أن هناك  في النموذج معاينة قبل الطباعة (  PERVIEW REPORT ) .. والمعروف أنه عند الضغط علي CTL+P  في وضع معاينة قبل الطباعة   (  PERVIEW REPORT ) يمكن للمستخدم أن يطبع ما يشاء من النسخ 
هل هناك كود يلغي CTL+P  في وضع PERVIEW REPORT   وتكون الطباعة من خلال زرار PRINT   فقط ؟
شكرا 

[متقاعد]

منذ ساعه, صابر سليمان said:

هل هناك كود يلغي CTL+P  في وضع PERVIEW REPORT   وتكون الطباعة من خلال زرار PRINT   فقط

نعم ممكن

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

^p

واجعل التقرير منبثق نعم ومشروط نعم

مرفق مثال

 

test.accdb

تم تعديل نوفمبر 3, 2022 بواسطه مبرمج متقاعد
لمزيد من الايضاح

[صابر سليمان]

جزاك الله خيرا يااستاذنا @مبرمج متقاعد
هل يمكن تحويل هذا الماكرو الي كود VBA

[biskra]

جرب الكود التالي في حدث KeyDown في خصائص التقرير 

        If KeyCode = vbKeyP Then
            MsgBox "عذرا لا يسمح لك بالطباعة", vbCritical, "ERROR"
            KeyCode = 0
        End If
              If KeyCode = vbKeyV Then
            MsgBox "عذرا لا يسمخ بنسخ صورة التقريرm", vbCritical, "ERROR"
            KeyCode = 0
        End If
       
        If KeyCode = vbKeyC Then
            MsgBox "عذرا لا يسمح بأخذ نسخة من شاشة التقرير", vbCritical, "ERROR"
            KeyCode = 0

نعدل لتعطيل نسخ الشاشة و لصقها  أي تعطيل Ctrl C و Ctrl V 

تم تعديل نوفمبر 3, 2022 بواسطه biskra

[متقاعد]

2 دقائق مضت, biskra said:

جرب الكود التالي في حدث KeyDown في خصائص التقرير 

سبقتني في الرد☝️احسنت بارك الله فيك

[صابر سليمان]

جزاك الله كل خير استاذ @biskra
الف الف شكر 
والشكر ايضا موصول للاستاذ @مبرمج متقاعد

[طه محمد حامد]

هل يمكن ايضا تعطيل ازرار الطباعة في جميع القوائم وحتي عند الضغط علي كليك يمين؟؟؟؟؟؟؟؟؟؟؟ كما بالصور المرفقة او اي مكان آخر فيه زر الطباعة التلقائي