استخدم e.HasMorePages مع For Each

    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