Salto de pagina con Printdocument en vb.net

[Gustavo1973]

Hola, tengo que imprimir un informe con imagenes y la mejor forma que encontre fue con printdocument, pero me imprime solo la primera pagina.
este es el script.

Código vb:

Private Sub print1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles print1.PrintPage
        Dim c, cc, desx, desy, pag As Integer
        Dim Ini As CIniClass
        Dim newImage As Image
        Dim ulCorner As Point
        Dim urCorner As Point
        Dim llCorner As Point
        'Dim TamaoPersonal As Printing.PaperSize
        'Dim Ancho As Short
        'Dim Alto As Short
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        'Ancho = 210
        'Alto = 297
        'TamaoPersonal = New Printing.PaperSize("A4", Ancho, Alto)
        '
        desx = 10
        desy = 20
        Dim destPara As Point() = {ulCorner, urCorner, llCorner}
        Ini = New CIniClass
        c = 0
        cc = 0
        e.Graphics.DrawString("Productos Faltantes de " & cboTMP.Text, New Font("Arial", 18, FontStyle.Regular), Brushes.Black, 5, 5)
        While Me.lvwFaltante.Items.Count > c
            newImage = Image.FromFile(Me.lvwFaltante.Items(c).SubItems(4).Text)
            ulCorner = New Point(1 + desx, desy)
            urCorner = New Point(30 + desx, desy)
            llCorner = New Point(1 + desx, desy + 26)
            destPara = {ulCorner, urCorner, llCorner}
            ' Draw image to screen.
            e.Graphics.DrawImage(newImage, destPara)
            e.Graphics.DrawString(Me.lvwFaltante.Items(c).SubItems(0).Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx + 32, desy)
            e.Graphics.DrawString(Me.lvwFaltante.Items(c).SubItems(1).Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx + 32, desy + 5)
            e.Graphics.DrawString(Me.lvwFaltante.Items(c).SubItems(3).Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx + 32, desy + 10)
 
            If (cc / 2) = Int((cc / 2)) Then
                desx = 95
            Else
                desx = 10
                desy = (desy + 28)
            End If
            If cc > 18 Then
                pag = pag + 1
                e.Graphics.DrawString("Pagina: " & pag, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx, desy + 40)
                e.HasMorePages = True
                cc = 1
                'desx = 10
                'desy = 20
                'e.HasMorePages = False
            Else
                e.HasMorePages = False
                cc = cc + 1
            End If
            c = c + 1
        End While
        'e.HasMorePages = False
    End Sub
 

lo imprime, incluso las imágenes, pero solo la primera pagina.
les captura de lo que imprime en archivo.

no se por que no salta la pagina!!!
Gracias