كائن الطابعة Printer Object فى الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كائن الطابعة Printer Object فى الفجوال بيسك 6

مُساهمة من طرف السنى في الإثنين يونيو 17, 2013 6:40 am

بسم الله الرحمن الرحيم

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

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

كائن الطابعة 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. نفس اسلوب طرق المخرجات المتبع مع نافذة النموذج استخدمه لكائن الطابعة. حاول اعطاء المستخدم حرية في اختيار الطابعة خاصة اذا كان جهازه يحتوي على اكثر من طابعة.

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى