هذا الدرس من اعداد : الأستاذ تركي العسيري .

عنوان الموضوع : كائن الطابعة (للمبتدئين)

كائن الطابعة Printer Object

الطباعة من المزايا الضرورية التي لابد من توفيرها في برامجك الجدية. بعيدا عن اجراءات API المعقدة، يوفر لك Visual Basic كائن الطابعة Printer Object والذي من اسمه يعرف غرضه. الهدف من هذه المقالة هو تقديم كائن الطابعة.

قبل التوغل في اعضاء كائن الطابعة اود ان اتطرق الى مجموعة الطابعات Printers Collection. هذه المجموعة تمثل جميع الطابعات الموجودة في الجهاز الحالي. لاتستطيع تعديل مزايا هذه الطابعات بشكل مباشر. لابد من تحديد الطابعة وتعيينها للاستخدام ومن ثم تبدأ عملية تعديل المزايا والخصائص.

معلومات حول الطابعة:
والان ابدأ بالتحدث عن كائن الطابعة والذي يوفر الكثير من الخصائص التي تعود بمعلومات حول الطابعة. كاسم الطابعة DeviceName او اسم المشغل DeriverName ورقم البوابة Port المركب عليها الطابعة.

الكود:

Dim X As Integer

For X = 0 To Printers.Count -1
Print Printers(X).DeviceName
Next

المزيد من الخصائص، خاصية ColorMode التي تعرف عن طريقها ما اذا كانت الطابعة داعمة للالوان او لا. والخاصية PrinterQuality والتي تعود بنوع الكثافة النقطية وجودة الطباعة. الخصائص الاخرى تجدها بشكل مفصل في مكتبة MSDN.

تحديد الطابعة
اذا فالمجموعة Printers Collection تمثل جميع الطابعات الموجودة في الجهاز. وبكل تأكيد تود من المستخدم تحديد الطابعة التي يود استخدامها. كل ما عليك هو توفير كود مناسب لتعيين الطابعة الموجودة في المجموعة Printers الى الكائن Printer. هذا مثال لعمل ذلك عن طريق استخدام الاداة List Box:

الكود:

Private Sub Form_Load ()
Dim X As Integer

For X = 0 To Printers.Count -1
List1.AddItem Printers(X).DeviceName
Next
End Sub

Private Sub List1_Click ()

Set Printer = Printers(List1.ListIndex)

End Sub

والان كل ما عليك هو استخدام الكائن Printer لتعديل الخصائص.

الطباعة الفعلية
عملية الطباعة الطباعة الفعلية لا تتطلب مقالة خاصة لان جميع طرق المخرجات الموجودة في كائن النموذج Print، Line، Cirlce الخ... مدعومة في كائن الطابعة. استخدمها بنفس الطريقة. وبعد ان تنتهي من ارسال البيانات الى الطباعة، استخدم الطريقة EndDoc لبدء عملية الطباعة الفعلية:

الكود:

Printer.FontSize = 40
Printer.Print "www.vb2top.com"
' ابدأ عملية الطباعة
Print.EndDoc

الطريقة KillDoc تقوم بانهاء عملية الطباعة، والطريقة NewPage واضح من اسمها انها لغرض استخدام صفحة جديدة.

خاتمة:

اختصت هذه المقالة للمبتدئين للتوضيح لهم طريقة استخدام كائن الطابعة Printer. نفس اسلوب طرق المخرجات المتبع مع نافذة النموذج استخدمه لكائن الطابعة. حاول اعطاء المستخدم حرية في اختيار الطابعة خاصة اذا كان جهازه يحتوي على اكثر من طابعة.

أحسنت الاخ الفاضل جزاكم الله خيرا