版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

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

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/73196307