كود فتح خصائص الطابعة

[الساحة البريدية]

السلام عليكم ورحمة الله وبركاته

وتقبل الله صيامكم وقيامكم 

 

لو فرضنا أن كود تشغيل الالة الحاسبة الملحقة بوندوز هو :

 

 On Error GoTo Err_Calculator_Click
 Dim stAppName As String
 stAppName = "C:\WINDOWS\system32\spool\DRIVERS\x64\3"
 Call Shell(stAppName, 1)
Exit_Calculator_Click:
 Exit Sub
Err_Calculator_Click:
 MsgBox Err.Description
 Resume Exit_Calculator_Click

 

فما هو الكود الذي يفتح لوحة التحكم الخاصة بالطابعة ؟؟

أحيانا اريد فتح تحكم الطابعة لكي ألغي المستندات العالقة 

فأريد تخصيص زر في فورم أضع فيه الكود الذي يفتح لي لوحة تحكم الطابعة الافتراضية لو سمحتوا

 

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

 

 

[الساحة البريدية]

السلام عليكم

 

وجدت هذا الكود :

 

 Shell "RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus

ولكنه يفتح مجلد الطابعات ،، شيء جيد

 

ولكني أريد الكود يدخلني على الطابعة نفسها ، وهي اسمها : BIXOLON SRP-350III

 

يعني بدل ما يفتح لي مجلد الطابعات وانا انقر مزدوج فوق الطابعة BIXOLON SRP-350III لفتح خياراتها ، أريده تلقائيا يدخلني على الطابعة لو سمحتوا

ومن جهتي سوف أبحث إن شاء الله وإذا وجدت نتيجة سوف انشرها للفائدة 

[الساحة البريدية]

مازلت أبحث عن الطريقة

[ابوخليل]

تفضل

كود يعرض خصائص الطابعة الافتراضية

Shell "rundll32 printui.dll,PrintUIEntry /p /n""" & Printer.DeviceName

 

[رمهان]

عدل حرف p  الى O  هنا

4 ساعات مضت, ابوخليل said:

تفضل

كود يعرض خصائص الطابعة الافتراضية

Shell "rundll32 printui.dll,PrintUIEntry /p /n""" & Printer.DeviceName

 

بالتوفيق

[ابوخليل]

لمزيد من الخصائص

عدل حرف p  الى e

[الساحة البريدية]

الله يجزاك كل خير يا ابو خليل على المساعدة الطيبة

هذا الكود يفتح خيارات الطابعة ،، والمطلوب فتح نافذة مهام الطباعة العالقة ليتم حذفها ، بدلا من الذهاب إلى لوحة تحكم الطابعة

لقد قمت بتبديل الحرف ( P ) إلى الحرف ( O ) وحصلت على ما أريده ، بتوفيق الله ، ثم بجهودكم ومساعدتكم لنا