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

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

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 


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