• فيجوال بيسك
  • 2015
  • 20-3-2008
  • الطباعة باستخدام Print Object إن الطباعة من الأساسيات في برامجك فأي برنامج يحتاج إلى الطباعة في هذا الدرس سوف نقدم مثالاً بسيطاً لطباعة نص دون إستخدام توابع API أولاً يجب أن يكون لديك طابعة إفتراضية مثبتة ولو لم يكن لديك طابعة أضف طابعة وهمية للتجريب . عن طريق لوحة التحكم -> الطابعات -> إضافة طابعة ثانياً عليك تجهيز الفورم بمايلي: 1 - أداة النصوص Text1 2 - الصندوق List1 3 - زر أمر Command1 هذه الأدوات التي عليك إضافتها

    i

    الأن نبداً بالعمل : 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 سيكون لنا حديث خاص عنها أمل أن يكون هذا الدرس قد حقق الفائدة للمبتدئين في الفيجوال بيسك
    كن أول من يقيم الموضوع
    12345