الطباعه {الجمعة 28 أكتوبر - 21:37}

الطباعة باستخدام
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



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







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