منع الطباعة Ctrl + P

أنشئ ماكرو ايتوكيس وضع فيه الأمر ^P

بدون اختيار إجراء

لمعرفة كيفية إنشاءه :

انقر هنا

جزاك الله الف الف الف خير على سرعة ردك أولاً

استاذي

والله العظيم يعجز اللسان عن شكرك

(gift)

لقد قمت بتجربة AutoKeys ونجح فى منع الطباعة باستخدام Ctrl+P ولكن عندما اضغط بعدها P فقط يفتح مربع حوار الطباعة وقد حاولت ان أعمل ماكرو للـp فلم ينجح

فما الحل من وجهة نظرك.. أكرمك الله

مشكلة حرف p هذي من ميكروسوف وليست من الماكرو

جرب ضغط زر caps lock ولن يظهر مربع الحوار

لدي كود يعمل نفس الشيء ولكن في اي وقت يضغط المستخدم على الزر يلتغي العمل

جربت حكاية الCAPSLOCK ووجدتها نافعه لكن كيف أجعل المستخدم يضغط عليها

أنا أريد منع المستخدمين من الطباعة بدون ما أقول له اضغط على CapsLock

عموما هل ينفع هذا الكود فى مثل حالتى

إذا كان ينفع فبرجاء سرعة إرساله

وإذا كان لا فبرجاء البحث معى عن حل لهذه المشكلة

وجزاك الله خيراً

مشكلة الكود الذي لدي أنه بضغطة بسيطة على زر caps lock يلغي اللي سواه الكود ولديك الحل بطريقتين إما جعل نموذج مخفي يفتح مع فتح التقارير ويبدأ تايمر فيه يعمل يتأكد من الزر كل ثانية مثلا حتى اغلاق التقرير

أو الغاء الزر إذا -وأنا غير متأكد- من البيوس للجهاز يعني يعطل الزر لكن هذه الطريقة لا ادري ان كانت تصلح أم لا

ولك تحياتي

أخى الحبيب أبو حمود

أولاً: أشكرك على متابعتك لى وجزاك الله عنى وعن أعضاء المنتدى خيرا

ثانياً: أرجو أن ترسل لى هذا الكود لان احتمالية ان يضغط المستخدم Caps Lock ضعيفة

أكرمك الله

أين انت يا أخ أبوحمود؟؟؟

[gl]أين أنت[/gl]

:(

عندي سوال

كيف الغي المفاتيح

المفتاح كنرول مع ناقص (يحذف السجل)

والمفتاح كنترول مع نقطة (حرف زاي العربي)

والمفتاح كنترول مع فاصلة (حرف الكاف العربي)

والمفتاح كنترول مع فاصلة تحتية (حرف الواو العربي)

وشكركم على هذا الموضوع المفيد

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

الأخ Rouka

في حدث عند الفتح للتقرير في الوحدة النمطية اكتب

ToggleCapsLock

وفي الوحدة النمطية العامة اكتب :

Option Compare Database

Option Explicit

' Declare Type for API call:

Private Type OSVERSIONINFO

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String * 128 ' Maintenance string for PSS usage

End Type

' API declarations:

Private Declare Function GetVersionEx Lib "kernel32" _

Alias "GetVersionExA" _

(lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Sub keybd_event Lib "user32" _

(ByVal bVk As Byte, _

ByVal bScan As Byte, _

ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" _

(pbKeyState As Byte) As Long

Private Declare Function SetKeyboardState Lib "user32" _

(lppbKeyState As Byte) As Long

'Constant declarations:

Const VK_NUMLOCK = &H90

Const VK_SCROLL = &H91

Const VK_CAPITAL = &H14

Const KEYEVENTF_EXTENDEDKEY = &H1

Const KEYEVENTF_KEYUP = &H2

Const VER_PLATFORM_WIN32_NT = 2

Const VER_PLATFORM_WIN32_WINDOWS = 1

Sub ToggleCapsLock()

Dim o As OSVERSIONINFO

o.dwOSVersionInfoSize = Len(o)

GetVersionEx o

Dim keys(0 To 255) As Byte

GetKeyboardState keys(0)

If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '===== Win95

'Toggle capslock

keys(VK_CAPITAL) = Abs(Not keys(VK_CAPITAL))

SetKeyboardState keys(0)

ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '===== WinNT

'Simulate Key Press

keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

'Simulate Key Release

keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _

Or KEYEVENTF_KEYUP, 0

End If

End Sub

الأخ osama457

عند مفتاح للأسفل للنموذج ضع :

If KeyCode = 189 Then KeyCode = 0 ' لمنع الكنترول مع الناقص

If KeyCode = 190 Then KeyCode = 0 ' لمنع الكنترول مع الزاي

If KeyCode = 186 Then KeyCode = 0 ' لمنع الكنترول مع الكاف

If KeyCode = 188 Then KeyCode = 0 ' لمنع الكنترول مع الواو

وفي مفتاح العرض التمهيدي اختر نعم