03-09-19, 11:59 AM
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_ لا تنتقل للصفحة الثانية تلقائياً .
.......................
الخلاصة :
لدي بيانات اكثر من ٣٠ موظف
في الصفحة الورقية المطبوعة يوجد فيها بيانات صفين فقط من الداتا جيراد فيو اي لموظفين فقط ، وتلقائيا تنتقل لصفحة ثانية وتطبع الصفين الجدد بنفس كود الصفين الأول والثاني وهكذا إلا أن تنتهي البيانات في الداتا جيراد فيو .
مع التحقق بعدد الصفوف الواجب طباعتها
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_ لا تنتقل للصفحة الثانية تلقائياً .
.......................
الخلاصة :
لدي بيانات اكثر من ٣٠ موظف
في الصفحة الورقية المطبوعة يوجد فيها بيانات صفين فقط من الداتا جيراد فيو اي لموظفين فقط ، وتلقائيا تنتقل لصفحة ثانية وتطبع الصفين الجدد بنفس كود الصفين الأول والثاني وهكذا إلا أن تنتهي البيانات في الداتا جيراد فيو .
مع التحقق بعدد الصفوف الواجب طباعتها