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 教程 目录