vb.net如何打印文档

需要的组件Button1、PrintDocument1、PrintPreviewDialog1 Dim currentPage = 1
Dim totalPage = 3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currentPage = 1
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.Show()
End Sub

Function mydraw(ByVal gh As Graphics, ByVal page As Integer)
gh.DrawString("This is " + Str(page) + " page", New Font("黑体", 20), Brushes.Black, 0, 0)
If page >= totalPage Then Return False Else Return True
End Function

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.HasMorePages = mydraw(gh:=e.Graphics, page:=currentPage)
currentPage = currentPage + 1
End Sub

使用变量currentPage为当前正在打印的页号，totalPage为总输出页数。
每次打印完当前页，返回是否还有继续打印的页HasMorePages