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

前端之家收集整理的这篇文章主要介绍了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 教程 目录

猜你在找的VB相关文章