+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31194)
سؤال في الطباعة باستخدام data grid view - Hassan.syria - 03-09-19
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Da = New SqlDataAdapter("select * from TABLE_DATA where data like '%" & TextBox1.Text.Trim & "%'", Con)
Da.Fill(Dt)
DGV1.DataSource = Dt
For i = 0 To Dt.Rows.Count + 1
Select Case i
Case 1
e.Graphics.DrawString(Dt.Rows(i)("name"), fn, Brushes.Black, 520, 249, sf)
e.Graphics.DrawString(Dt.Rows(i)("FAMILY"), fn, Brushes.Black, 480, 249, sf)
e.Graphics.DrawString(Dt.Rows(i)("DATA_BIRH"), fun, Brushes.Black, 480, 280, sf)
e.Graphics.DrawString(Dt.Rows(i)("GOVERM"), fun, Brushes.Black, 400, 280, sf)
e.Graphics.DrawString(Dt.Rows(i)("TITLE"), fun, Brushes.Black, 480, 301, sf)
e.Graphics.DrawString(Dt.Rows(i)("PHONEE"), fun, Brushes.Black, 400, 302, sf)
e.Graphics.DrawString(Dt.Rows(i)("NATIONALITG"), fun, Brushes.Black, 530, 328, sf)
e.Graphics.DrawString(Dt.Rows(i)("NUM_VERTIFI"), fun, Brushes.Black, 400, 329, sf)
e.Graphics.DrawString(Dt.Rows(i)("DATA_GRAN"), fun, Brushes.Black, 510, 359, sf)
e.Graphics.DrawString(Dt.Rows(i)("DATA_VALID"), fun, Brushes.Black, 400, 359.5, sf)
e.Graphics.DrawString(Dt.Rows(i)("ISSUED"), fun, Brushes.Black, 530, 378, sf)
e.Graphics.DrawString(Dt.Rows(i)("NOTES"), fun, Brushes.Black, 400, 380.5, sf)
e.Graphics.DrawString(Dt.Rows(i)("BLOODTYPE"), fun, Brushes.Black, 520, 405, sf)
Case 2
e.Graphics.DrawString(Dt.Rows(i)("NAME"), fn, Brushes.Black, 520, 658, sf)
e.Graphics.DrawString(Dt.Rows(i)("FAMILY"), fn, Brushes.Black, 480, 658, sf)
e.Graphics.DrawString(Dt.Rows(i)("DATA_BIRH"), fun, Brushes.Black, 480, 719, sf)
e.Graphics.DrawString(Dt.Rows(i)("GOVERM"), fun, Brushes.Black, 400, 719, sf)
e.Graphics.DrawString(Dt.Rows(i)("TITLE"), fun, Brushes.Black, 480, 740, sf)
e.Graphics.DrawString(Dt.Rows(i)("PHONEE"), fun, Brushes.Black, 400, 740, sf)
e.Graphics.DrawString(Dt.Rows(i)("NATIONALITG"), fun, Brushes.Black, 530, 767, sf)
e.Graphics.DrawString(Dt.Rows(i)("NUM_VERTIFI"), fun, Brushes.Black, 400, 767, sf)
e.Graphics.DrawString(Dt.Rows(i)("DATA_GRAN"), fun, Brushes.Black, 510, 797, sf)
e.Graphics.DrawString(Dt.Rows(i)("DATA_VALID"), fun, Brushes.Black, 400, 797, sf)
e.Graphics.DrawString(Dt.Rows(i)("ISSUED"), fun, Brushes.Black, 530, 818, sf)
e.Graphics.DrawString(Dt.Rows(i)("NOTES"), fun, Brushes.Black, 400, 818, sf)
e.Graphics.DrawString(Dt.Rows(i)("BLOODTYPE"), fun, Brushes.Black, 520, 843, sf)
End Select
Next
٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠
المشاكل التي تحدث
1_ لا استطيع الطباعة الا بتحديد رقم الصف
2_ انا لدي اكثر من ٣٠ صف ولا اريد ان اكتب ٣٠ كود
3_ لا تنتقل للصفحة الثانية تلقائياً .
.......................
الخلاصة :
لدي بيانات اكثر من ٣٠ موظف
في الصفحة الورقية المطبوعة يوجد فيها بيانات صفين فقط من الداتا جيراد فيو اي لموظفين فقط ، وتلقائيا تنتقل لصفحة ثانية وتطبع الصفين الجدد بنفس كود الصفين الأول والثاني وهكذا إلا أن تنتهي البيانات في الداتا جيراد فيو .
مع التحقق بعدد الصفوف الواجب طباعتها
RE: سؤال في الطباعة باستخدام data grid view - asemshahen5 - 03-09-19
ضع مثال مصغر مع جدول المراد طباعة السجلات منه و صورة لتقرير عملته و باذن الله ستتم مساعدتك .