14-10-12, 01:44 PM
كاتب الموضوع : أحمد جمال
هي مجموعة من الدروس والمقالات التي كانت موجودة منذ مدة في المنتديات ولكنها ضاعت مع ضياع قاعدة البيانات ، هذه واحدة منها :اعداد : الأستاذ تركي العسيري .
عنوان الموضوع : كائن الطابعة (للمبتدئين)
كائن الطابعة Printer Object
الطباعة من المزايا الضرورية التي لابد من توفيرها في برامجك الجدية. بعيدا عن اجراءات API المعقدة، يوفر لك Visual Basic كائن الطابعة Printer Object والذي من اسمه يعرف غرضه. الهدف من هذه المقالة هو تقديم كائن الطابعة.
قبل التوغل في اعضاء كائن الطابعة اود ان اتطرق الى مجموعة الطابعات Printers Collection. هذه المجموعة تمثل جميع الطابعات الموجودة في الجهاز الحالي. لاتستطيع تعديل مزايا هذه الطابعات بشكل مباشر. لابد من تحديد الطابعة وتعيينها للاستخدام ومن ثم تبدأ عملية تعديل المزايا والخصائص.
معلومات حول الطابعة:
والان ابدأ بالتحدث عن كائن الطابعة والذي يوفر الكثير من الخصائص التي تعود بمعلومات حول الطابعة. كاسم الطابعة DeviceName او اسم المشغل DeriverName ورقم البوابة Port المركب عليها الطابعة.
كود :
Dim X As Integer
' استخدام المجموعة
' Printers Collection
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
' استخدام المجموعة
' Printers Collection
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 "[url=http://www.vb2top.com/]www.vb2top.com[/url]"
' ابدأ عملية الطباعة
Print.EndDoc
الطريقة KillDoc تقوم بانهاء عملية الطباعة، والطريقة NewPage واضح من اسمها انها لغرض استخدام صفحة جديدة.
خاتمة:
اختصت هذه المقالة للمبتدئين للتوضيح لهم طريقة استخدام كائن الطابعة Printer. نفس اسلوب طرق المخرجات المتبع مع نافذة النموذج استخدمه لكائن الطابعة. حاول اعطاء المستخدم حرية في اختيار الطابعة خاصة اذا كان جهازه يحتوي على اكثر من طابعة.