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页", New Font("宋体", 20), New SolidBrush(Color.Blue), New Point(10, 120))
            g.DrawImage(PictureBox1.Image, New Rectangle(10, 160, 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("vb.net教程 http://blog.csdn.net/uruseibest", New Font("宋体", 20), New SolidBrush(Color.Blue), New Point(10, 80))
            g.DrawString("这是一个打印的例子：第2页", New Font("宋体", 20), New SolidBrush(Color.Blue), New Point(10, 120))
            g.DrawImage(PictureBox1.Image, New Rectangle(10, 160, 600, 400), New Rectangle(0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height), 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 教程 目录