使用PrintDocument1.Print列印多個頁(使用vb.net)

如題
我希望由PrintDocument1.Print印出的有以下的效果
印出第一頁時，上面寫「我是第一頁」

印出第二頁時，上面寫「我是第二頁」

印出第三頁時，上面寫「我是第三頁」

也就是會換頁的效果

請問要如何實現呢 感謝

 Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PrintPreviewControl1.Document = PrintDocument1
    End Sub

    Private pageNum As Integer = 1

    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim fnt As New Font("宋体", 50)
        e.Graphics.DrawString("我是第" + Str(pageNum) + "页", fnt, Brushes.Black, New PointF(50, 50))
        If (pageNum < 10) Then
            e.HasMorePages = True
            pageNum += 1
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If (PrintPreviewControl1.StartPage > 0) Then PrintPreviewControl1.StartPage -= 1
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        PrintPreviewControl1.StartPage += 1
    End Sub
End Class