Печать на двух страницах - Visual Basic .NET

Формулировка задачи:

Не получается напечатать на второй странице. Не понимаю как работает e.HasMorePages Нужно при достижении n=70 переходить на второй лист.

Private Sub DOC2_print(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles DOC2.PrintPage
        ' печать списка растений
        Dim font As New System.Drawing.Font("ARIAL", 14, FontStyle.Bold)
        Dim font2 As New System.Drawing.Font("ARIAL", 12, FontStyle.Bold)
        Dim x, y As Integer
        Dim hag As Integer = 15 ' шаг строк
        Dim hagProbel As Integer = 10 ' шаг пробел
        Try
 
            Dim name1 As String = Nothing
            x = 150 : y = 30
            e.Graphics.DrawString(print_name, font, Brushes.Black, x, y) ' Выводим на страницу текст
            If print_name.Length > 6 Then x = x - ((print_name.Length / 2) * hagProbel)
            x = 20 : y = 70
            Dim n As Integer
            For n = 0 To Список.Length - 1
                If n = 70 Then
                    'x = 400 : y = 70
                End If
 
                name1 = Список(n)
                Dim name2 As String = ""
                If name1.Length > 30 Then
                    name2 = name1.Substring(31)
                    name1 = name1.Substring(0, 31)
                    e.Graphics.DrawString(name1, font2, Brushes.Black, x, y)
                    y = y + hag
                    e.Graphics.DrawString(name2 & " -  " & shtuk(n) & " шт.", font2, Brushes.Black, x, y, New System.Drawing.StringFormat)
                Else
                    e.Graphics.DrawString(name1 & " -  " & shtuk(n) & " шт.", font2, Brushes.Black, x, y, New System.Drawing.StringFormat)
                End If
                y = y + hag
            Next
            e.HasMorePages = (n < Список.Length)

        Catch ex As Exception
            Ошибка.Журнал(ex, "DOC2_print", "Pechat")
        End Try
 
    End Sub

никто не сталкивался с печатью?

Решение задачи: «Печать на двух страницах»

textual
                            Листинг программы 
                        

                            Static StartIndex as integer=0
n=0
While n < 70 andalso n+StartIndex < Список.Length
...
n+=1
end while
StartIndex+=n
if StartIndex < Список.Length then
    e.HasMorePages = true
else
    e.HasMorePages = false
    StartIndex = 0
end if
                        