printing more than 1 page

[smiles]

I have about 40 parameters equivalent to 40 checkboxes, each checkbox 's content uses 1 line, but I print all content on A5 paper, how can I set it to know more than 1 page printing

        Dim coor As Integer = 170
        e.Graphics.DrawString("Analyze Parameter", myFont2, Brushes.Black, 30, coor)
        e.Graphics.DrawString("Normal value", myFont2, Brushes.Black, 220, coor)
        e.Graphics.DrawString("Result", myFont2, Brushes.Black, 650, coor)
        For i = 0 To 39
            If analyzeName(i).Checked = True Then
                coor = coor + 20
                e.Graphics.DrawString(analyzeName(i).Text, myFont4, Brushes.Black, 30, coor)
                e.Graphics.DrawString(normalValue(i).Text, myFont4, Brushes.Black, 220, coor)
                e.Graphics.DrawString(result(i).Text, myFont4, Brushes.Black, 650, coor)
                End If
        Next

Thanks !!!