+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طباعة ال data grid view (/showthread.php?tid=7503)
طباعة ال data grid view - tecno2012 - 24-12-12
هذا الكود لطباعة ال 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 فكيف استطيع طباعة الكل الظاهر وغير الظاهر
طباعة ال data grid view - @@أبورائد@@ - 24-12-12
السلام عليكم ورحمة الله وبركاته
تفضل التعيل
كود :
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السلام عليكم ورحمة الله وبركاته
طباعة ال data grid view - tecno2012 - 24-12-12
شكرا اخي ولكن نفس الكود ليس هناك تعديل
طباعة ال data grid view - بو عبدالله - 24-12-12
@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته
تفضل التعيل
كود :
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
السلام عليكم ورحمة الله وبركاته
شكراًَ عزيزي بو رائد اولاًَ
جربته عزيزي لكن ما ضبط
يطبع فقط الجزأ المعروض ما يطبع جميع بيانات الداتا قريد
طباعة ال data grid view - @@أبورائد@@ - 24-12-12
السلام عليكم ورحمة الله وبركاته
بصراحة... لا أنصح بالطباعة بهذه الطريقة حتى ولو كان الشخص مبتدئ، فهي تطبع رسم للأداة (طبعا ما يظهر منها)، والأداة مخصصة للعرض على الشاشة.
الأفضل الطباعة باستخدام أدوات التقارير، مثل كريستال ريبورت أو ميكروسوفت ريبورت وما شابهها....
برمجة الطباعة قسم مستقل يختلف عن برمجة العرض على الشاشة....
السلام عليكم ورحمة الله وبركاته
طباعة ال data grid view - بو عبدالله - 24-12-12
كلام جميل جداًَ
طبعاًَ انا كنت ابقى اجرب و اتأكد مو القصد الاستخدام
فلما لقيتها ما تظهر النتيجه المطلوبه قلت لك
على العموم الف شكر عزيزي
انا عندي كود للطباعة و إن شاء الله يظبط و اطرحه
وهو الطباعة على التقارير بدون dataset
بالكود
إن شاء الله تظبط
طباعة ال data grid view - learning.net - 24-12-12
كلام الاخ ابورائد صحيح 100%
وانا ايضا انصح بالتقارير
وهذا مثال لاحد الاخوه(يعذرنى لعدم تذكر اسمه جازاه الله خيراّ)
http://vb4arb.com/vb/uploaded/855_01356358297.zip
به كيفية الطباعه من ال datagridview الى الكريستال ريبورت
وبالتوفيق ان شاء الله