vb.net e printpreview

[amodio]

voglio usare questo controllo (printpreview) ma quando inserisco molte righe
non mi passa all'altra pagina cosa sbaglio
in questo esempio cerco di stampate 600 righe , ma non passa a pagina 2

        For x = RigaArrivato To 600 'linesPerPage

            RighePerPagina = RighePerPagina + 1
            ypos = e.MarginBounds.Top + x * PrintFOnt.GetHeight(e.Graphics)

            e.Graphics.DrawString("ssssssssssssss" & " " & x, PrintFOnt, Brushes.Black, e.MarginBounds.Left, ypos, New StringFormat)

            If RighePerPagina >= 61 Then 'linesPerPage
                RighePerPagina = 0
                PagineStampate = PagineStampate + 1
                RigaArrivato = x
                If PagineStampate >= (600 / 60) Then ' num righe / max righe fanno le pagine da stampare
                    '  e.HasMorePages = False
                    Exit Sub
                End If
                e.HasMorePages = True
            End If

        Next

premetto hce paginestampate e rigaarrivato sono variabili a livello modulo
per vedere dove sono arrivato con le righe(ho contato che ne bastano 60 per pagina>)

[Teflo]

If PagineStampate = 60 Then
   e.HasMorePages = True
   exit sub
Else
   e.HasMorePages = False
End If

Prova così

[amodio]

ecco cosa era
exit sub

in uqanto ripreneva il ciclo

grazie