دورس بالفيجوال بيسك

[بومبه]

الطباعة باستخدام Print Object



إن الطباعة من الأساسيات في برامجك فأي برنامج يحتاج إلى الطباعة

في هذا الدرس سوف نقدم مثالاً بسيطاً لطباعة نص دون إستخدام توابع API



أولاً يجب أن يكون لديك طابعة إفتراضية مثبتة ولو لم يكن لديك طابعة أضف طابعة وهمية للتجريب . عن طريق لوحة التحكم -> الطابعات -> إضافة طابعة



ثانياً عليك تجهيز الفورم بمايلي:

1 - أداة النصوص Text1

2 - الصندوق List1

3 - زر أمر Command1

هذه الأدوات التي عليك إضافتها




الأن نبداً بالعمل :

1- أنقر نقرتين فوق الفورم وأكتب الشيفرة التالية في الحدث Load للفورم

Dim a As Integer
For a = 0 To Printers.Count -1
List1.AddItem Printers(a).DeviceName
Next
End Sub

شرح الكود :

هذا الكود يقوم بوضع قائمة بأسماء الطابعات المثبتة لديك في الصندوق List1 لتتمكن من إختيار الطابعة التي تريد الطباعة عليها.



2- أنقر نقرتين فوق List1 وأكتب الكود التالي :

Set Printer = Printers(List1.ListIndex)

هذا الكود يقوم بتحديد الطابعة من المجموعة المثبتة لديك



3-الأن نبدأ بعملية الطباعة :

أكتب النص الذي تريد طباعته في Text1

أضف الكود التالي إلى زر Command1:


Printer.FontSize = 40
Printer.Print Text1.text
Printer.EndDoc

في السطر الأول تحديد حجم الخط

في السطر الثاني إرسال النص إلى الطابعة

في السطر الثالث بدء الطباعة الفعلية



هذه عملية الطباعة البسيطة بإستخدام Print Object ولاكن هناك عمليات طباعة ضخمة بتوابع API

سيكون لنا حديث خاص عنها



أمل أن يكون هذا الدرس قد حقق الفائدة للمبتدئين في الفيجوال بيسك