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,120,600,400),New Rectangle(0,PictureBox1.Image.Width,PictureBox1.Image.Height),GraphicsUnit.Pixel)
            i = i + 1
            e.HasMorePages = True
        Else
            g.DrawRectangle(New Pen(New SolidBrush(Color.Red),60))
            g.DrawString("这是一个打印的例子：第2页",GraphicsUnit.Pixel)
            e.HasMorePages = False
        End If

    End Sub

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

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

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

原文地址：https://www.jb51.cc/vb/256582.html