Side skift under udprintning af dataset

Jeg skal udprinte et dataset, og det gør jeg med følgende kode:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim resultat As New DataSet
        Dim i As Integer
        Dim plads As Integer
        Dim pfont, ffont, dfont As Font
        pfont = New Font("arial", 8, FontStyle.Regular)
        ffont = New Font("arial", 12, FontStyle.Bold)
        dfont = New Font("arial", 10, FontStyle.Bold)
        plads = 0
        resultat = SQLselect("select nr,navn,tid from almen order by tid")
        For i = 0 To resultat.Tables(0).Rows.Count() - 1
            plads = plads + 1
            e.Graphics.DrawString("Marathon Herrer", ffont, Brushes.Black, 500, 350)
            'nr
            e.Graphics.DrawString(resultat.Tables(0).Rows(i).Item(0), ffont, Brushes.Black, 500, 390)
            'navn
            e.Graphics.DrawString(resultat.Tables(0).Rows(i).Item(1), ffont, Brushes.Black, 500, 440)
            'plac:
            e.Graphics.DrawString("Plac:", ffont, Brushes.Black, 660, 350)
            'placering
            e.Graphics.DrawString(plads, ffont, Brushes.Black, 710, 350)
            'tid
            e.Graphics.DrawString(resultat.Tables(0).Rows(i).Item(2), ffont, Brushes.Black, 710, 390)

        Next
    End Sub

problemet er at printeren ikke skifter side.

Hvordan gør jeg det??