vb.net 教程 11-1 打印组件 4 PrintDocument 3

接上一节的内容，继续谈谈PrintDocument使用时一些细节

本节谈谈如何多页打印。

在 vb.net 教程 11-1 打印组件 PrintDocument 1 一节中讲到了 PrintDocument有个HasMorePages属性，它指示是否还要继续打印。

那么多页打印就是要使用它：

先看代码：

定义一个窗体级变量：

    Dim i As Integer

载入窗体时设置i=0：

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        i = 0    End Sub

打印的时候，打印2页：

    '打印页面    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage        Dim g As Graphics = e.Graphics        If i = 0 Then            g.DrawRectangle(New Pen(New SolidBrush(Color.Red), 2), New Rectangle(10, 10, 100, 60))            g.DrawString("这是一个打印的例子：第1页", New Font("宋体", 20), New SolidBrush(Color.Blue), New Point(10, 80))            g.DrawImage(PictureBox1.Image, New Rectangle(10, 120, 600, 400), New Rectangle(0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height), GraphicsUnit.Pixel)            i = i + 1            e.HasMorePages = True        Else            g.DrawRectangle(New Pen(New SolidBrush(Color.Red), 2), New Rectangle(10, 10, 100, 60))            g.DrawString("这是一个打印的例子：第2页", New Font("宋体", 20), New SolidBrush(Color.Blue), New Point(10, 80))            g.DrawImage(PictureBox1.Image, New Rectangle(10, 120, 600, 400), New Rectangle(0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height), GraphicsUnit.Pixel)            e.HasMorePages = False        End If    End Sub

ok，调用PrintDocument的Print()方法，打印到文件 ff.oxps：

注意图示中红框部分，可以看到，ff.oxps 分成了2页。

学习更多vb.net知识，请参看 vb.net 教程 目录