[RaggiTech]

كاتب الموضوع : أحمد جمال

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

سنتجاوز القائمة الفرعية ( النسخ الاحتياطي ) مؤقتاً حتى اكمال باقي عناصر القائمة .

تجهيز الطابعة .

سيحتوي فورم تجهيز الطابعة على قائمة بالطابعات الموجودة اضافة إلى زر ( تمكين الطابعة ) والذي يقوم بجعلها الطابعة الافتراضية . وزر آخر لالغاء الأمر .
والآن صمم هذا الفورم واسمه Frm_Printer .
وكما هي العادة مع كل الفورمات ، قم وضعه في المنتصف ، وأزل الشريط العلوي .

والآن إلى خطوات كتابة الكود :

* أولاً في أمر اظهار هذه الشاشة نتأكد أولاً من وجود طابعات .

كود :

Case 5
If Printers.Count = 0 Then
MsgBox "لا توجد أي طابعات متصلة بالجهاز", vbExclamation + arabic, "لا توجد طابعة"
Exit Sub
End If
Frm_Printer.Show 1

* في حدث

Form_Load لهذه الشاشة لا بد أن نضع الطابعات المتصلة بالجهاز في القائمة :

كود :

List1.Clear
Dim I
For I = 0 To Printers.Count - 1
List1.AddItem Printers(I).DeviceName
Next I

* في كود ( تمكين الطابعة ) سنعينها طابعة افتراضية للكومبيوتر ، ومن ثم نغلق الشاشة :

كود :

If List1.ListIndex < 0 Then Exit Sub
Set Printer = Printers(List1.ListIndex)
Unload Me

* وفي زر الغاء الأمر :

كود :

Unload Me

يحتوي الكائن Printer اضافة لما سبق على أهم الوظائف المتعلقة بالطابعة ويمكنك تصفحها بنفسك ، ويمكنك أيضاً استخدام المجموعة Printers ، ولمعرفة المزيد حول كائن الطباعة يمكن مراجعة درس الأستاذ تركي العسيري ( كائن الطباعة للمبتدئن ) والموجود في قسم فيجوال بيسك الرئيسي . ، كما أن بامكانك العثور على بعض المعلومات في كتاب ( نحو برمجة كائنية التوجه ) .

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