vb.net 教程 11-1 打印组件 5 PrintPreviewDialog

PrintPreviewDialog，打印预览组件提供了对当前需要打印的文档的预览。

重要属性：

Document：需要打印预览的文档，提供与PrintDocument的关联。

AutoSizeMode：AutoSizeMode.GrowAndShrink时，不能调整打印预览窗体大小。AutoSizeMode.GrowOnly时可以调整大小。

UseAntiAlias：指示打印是否使用操作系统的抗锯齿功能。

注意，个人感觉PrintPreviewDialog更像是一个窗体，可以在ShowDialog()前使用代码设置Size属性，调整显示出来的预览窗体大小：

        PrintPreviewDialog1.Size = New Size(500,500)
        PrintPreviewDialog1.AutoSizeMode = AutoSizeMode.GrowAndShrink
        PrintPreviewDialog1.ShowDialog()

重要方法：

ShowDialog：显示打印预览

实际上打印预览的内容就是PrintDocument.PrintPage()事件中绘制的内容，当我们的PrintPage中的代码完成的时候，打印预览也就完成了，只需要showDialog出来。

代码如下：

    Private Sub Button6_Click(sender As Object,e As EventArgs) Handles Button6.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub

为了更好地看看打印预览的功能，设置两页打印：

    '打印页面
    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("vb.net教程 http://blog.csdn.net/uruseibest",New Font("宋体",20),New SolidBrush(Color.Blue),New Point(10,80))
            g.DrawString("这是一个打印的例子：第1页",120))
            g.DrawImage(PictureBox1.Image,160,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),80))
            g.DrawString("这是一个打印的例子：第2页",GraphicsUnit.Pixel)
            e.HasMorePages = False
        End If
    End Sub

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

运行如下图：

打印预览提供了打印、缩放、多页显示等功能。

如果没有在程序中设置PrinterSettings（打印机设置），那么按下打印后，将使用默认打印机进行打印。

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!