[Hassan.syria]

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

[asemshahen5]

ضع مثال مصغر مع جدول المراد طباعة السجلات منه و صورة لتقرير عملته و باذن الله ستتم مساعدتك .