منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طباعة ال data grid view
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هذا الكود لطباعة ال data grid view
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PrintDocument2.Print()
End Sub
Private Sub PrintDocument2_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
DataGridView2.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))
e.Graphics.DrawImage(bm, 0, 0)

End Sub
سؤالي؟ هذا يطبع فقط الظاهر من grid view في حال كانت البيانات كثيرة وكان هنالك scroll bar فكيف استطيع طباعة الكل الظاهر وغير الظاهر
السلام عليكم ورحمة الله وبركاته

تفضل التعيل
كود :
Public Class Form1

    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
        Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
        DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))
        e.Graphics.DrawImage(bm, 0, 0)

    End Sub
End Class

السلام عليكم ورحمة الله وبركاته
شكرا اخي ولكن نفس الكود ليس هناك تعديل
@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

تفضل التعيل
كود :
Public Class Form1

    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
        Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
        DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))
        e.Graphics.DrawImage(bm, 0, 0)

    End Sub
End Class

السلام عليكم ورحمة الله وبركاته

شكراًَ عزيزي بو رائد اولاًَ



جربته عزيزي لكن ما ضبط

يطبع فقط الجزأ المعروض ما يطبع جميع بيانات الداتا قريد
السلام عليكم ورحمة الله وبركاته

بصراحة... لا أنصح بالطباعة بهذه الطريقة حتى ولو كان الشخص مبتدئ، فهي تطبع رسم للأداة (طبعا ما يظهر منها)، والأداة مخصصة للعرض على الشاشة.
الأفضل الطباعة باستخدام أدوات التقارير، مثل كريستال ريبورت أو ميكروسوفت ريبورت وما شابهها....

برمجة الطباعة قسم مستقل يختلف عن برمجة العرض على الشاشة....

السلام عليكم ورحمة الله وبركاته
كلام جميل جداًَ

طبعاًَ انا كنت ابقى اجرب و اتأكد مو القصد الاستخدام

فلما لقيتها ما تظهر النتيجه المطلوبه قلت لك

على العموم الف شكر عزيزي

انا عندي كود للطباعة و إن شاء الله يظبط و اطرحه

وهو الطباعة على التقارير بدون dataset

بالكود

إن شاء الله تظبط
كلام الاخ ابورائد صحيح 100%
وانا ايضا انصح بالتقارير
وهذا مثال لاحد الاخوه(يعذرنى لعدم تذكر اسمه جازاه الله خيراّ)
http://vb4arb.com/vb/uploaded/855_01356358297.zip
به كيفية الطباعه من ال datagridview الى الكريستال ريبورت
وبالتوفيق ان شاء الله