الطباعة باستخدام Print Object
إن الطباعة من الأساسيات في برامجك فأي برنامج يحتاج إلى الطباعة
في هذا الدرس سوف نقدم مثالاً بسيطاً لطباعة نص دون إستخدام توابع API
أولاً يجب أن يكون لديك طابعة إفتراضية مثبتة ولو لم يكن لديك طابعة أضف طابعة وهمية للتجريب . عن طريق لوحة التحكم -> الطابعات -> إضافة طابعة
ثانياً عليك تجهيز الفورم بمايلي:
1 - أداة النصوص Text1
2 - الصندوق List1
3 - زر أمر Command1
هذه الأدوات التي عليك إضافتها
الأن نبداً بالعمل :
1- أنقر نقرتين فوق الفورم وأكتب الشيفرة التالية في الحدث Load للفورم
شرح الكود :
هذا الكود يقوم بوضع قائمة بأسماء الطابعات المثبتة لديك في الصندوق List1 لتتمكن من إختيار الطابعة التي تريد الطباعة عليها.
2- أنقر نقرتين فوق List1 وأكتب الكود التالي :
هذا الكود يقوم بتحديد الطابعة من المجموعة المثبتة لديك
3-الأن نبدأ بعملية الطباعة :
أكتب النص الذي تريد طباعته في Text1
أضف الكود التالي إلى زر Command1:
في السطر الأول تحديد حجم الخط
في السطر الثاني إرسال النص إلى الطابعة
في السطر الثالث بدء الطباعة الفعلية
هذه عملية الطباعة البسيطة بإستخدام Print Object ولاكن هناك عمليات طباعة ضخمة بتوابع API
سيكون لنا حديث خاص عنها
أمل أن يكون هذا الدرس قد حقق الفائدة للمبتدئين في الفيجوال بيسك
Dim a As Integer
For a = 0 To Printers.Count -1
List1.AddItem Printers(a).DeviceName
Next
End Sub Set Printer = Printers(List1.ListIndex) Printer.FontSize = 40
Printer.Print Text1.text
Printer.EndDoc 