كيفيه الطباعه من الغورم مباشرا

هذه هي أحد مشاركات الأخ عبد الرحمن في موضوعه "دروس شبه يومية " الموجود في أعلى صفحة المواضيغ لهذا المنتدى

اقتباس

الطباعة

ابسط طريقة لطباعة نص , هي كالاتي:

اولا: من صندوق الادوات Tool Box اضف الاداة PrintDocument .

ثانيا: اضغط على الاداة نقرتين كي تقوم بكتابة الكود :

ثالثا: اكتب الكود التالي:

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        e.Graphics.DrawString("Helo World", New Font("Comic Sans MS", 20), Brushes.Black, 500, 500)



    End Sub

رابعا: قم باضافة زر امر Button واكتب الكود التالي:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        PrintDocument1.Print()

    End Sub

الدالة DrawString قد شرحت في الكود السابق .

ولكن الجديد اننا نلاحظ في تصريح الكود للاداة PrintDocument1 , ان المتغير e هو اهم شيء في هذه الاداة . لان به تتم طباعة النص او الصورة . والمتغير على هيئة System.Drawing.Printing.PrintPageEventArgs . ونلاحظ ان الكلاس Printing موجود في الكلاس Drawing . لذلك يجب علينا ان نستخدم الخاصية Graphics للمتغير e لنقوم بالطباعة . والخاصية Graphics بها الكثير من الدوال .

ناخذ مثال اخر وهو طباعة الصور , نفس الخطوات السابقة وانما عليك ان تضيف مربع صورة وتضع فيها اي صورة تشاء , ثم تستخدم الدالة DrawImage بدلا من الدالة DrawString , كما في الاتي:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        PrintDocument1.Print()

    End Sub



    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        e.Graphics.DrawImage(PictureBox1.Image, 500, 500)

    End Sub

الدالة DrawImage تقوم برسم صورة في موقع محدد . ولها تابعين:

1- الصورة التي تريد ان ترسمها .

2,3 - موقع الصورة . بتحديد ال X,Y .

اذا انتهيت من تحديد الصورة او النص وتحديد المواقع فما عليك الا استخدام الدالة Print الموجودة في الكائن PrintDocument1 .

اذا أردت الاستفسار عن اأي شيء في الرد السابق أضف رد .....

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

شكرا بارك الله فيك