[manduh]

سؤال محيرنى جدا جدا وارجو المساعدة
اقوم بعمل برنامج مبيعات طباعة الفواتير باستخدام PrintDocument وتعمل معى بشكل والحمد لله جيد جدا
واستخدم فى عرض البيانات فى الفورم ListView ويتم الطباعة بشكل عادى جدا

ولكن عندما تزيد البيانات فى الصفحة اريد وضع باقى البيانات فى صفحة ثانية
عندما استخدم الداتا جريد فيو واستخدام for فى عرض البيانات من الجريد فيو مثل هذا الكود

PHP كود :

For x As Integer = RowNo To DGV.Rows.Count
    e.Graphics.DrawString((x - 1) + 1, f, Brushes.Black, 765, y, fr)
 e.Graphics.DrawString(DGV.Rows(x - 1).Cells(1).Value.ToString(), f, Brushes.Black, 720, y, fr)
  e.Graphics.DrawString(DGV.Rows(x - 1).Cells(2).Value.ToString(), f, Brushes.Black, 450, y, fr)
                If RowNo Mod 20 = 0 Then
                    RowNo += 1
                    e.HasMorePages = True
                    Exit For
                End If
                RowNo += 1
                y += 40

            Next 


وسؤالى كيف استخدم e.HasMorePages مع For Each

[@@أبورائد@@]

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

PHP كود :

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        For x = 1 To 20

            e.Graphics.DrawString(RowNo, f, Brushes.Black, 765, y, fr)
            e.Graphics.DrawString(DGV.Rows(RowNo - 1).Cells(0).Value.ToString(), f, Brushes.Black, 765, y, fr)
            e.Graphics.DrawString(DGV.Rows(RowNo - 1).Cells(1).Value.ToString(), f, Brushes.Black, 720, y, fr)
            e.Graphics.DrawString(DGV.Rows(RowNo - 1).Cells(2).Value.ToString(), f, Brushes.Black, 450, y, fr)

            If RowNo Mod 20 = 0 Then

                RowNo += 1
                If RowNo =DGV.Rows.Count Then Exit Sub

                e.HasMorePages = True
                y = 100
                Exit For

            End If

            RowNo += 1
            y += 40

        Next

    End Sub 


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

[manduh]

اولا شكر على الرد ولكن اريد استخدام وضع الداتا مع For Each
وهذا مثال عرض الداتا من الداتا بيس عن طريق ListView

PHP كود :

For Each item As ListViewItem In ListView1.Items

                e.Graphics.DrawString(item.SubItems(0).Text, f, Brushes.Black, 75, y)
                e.Graphics.DrawString(item.SubItems(0).Text, f, Brushes.Black, 75, y)
                e.Graphics.DrawString(item.SubItems(1).Text, f, Brushes.Black, 120, y)

                If y >= "700" Then
                    rowno += 1
                    e.HasMorePages = True
                    Exit For
                End If
            Next 


ارجو مراجعة الكود وتوضيح الخطأ e.HasMorePages = True