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

今天药忘吃喽~ 2022-09-11 07:25 142阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
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  
运行如下图：

![Center][]

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

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

学习更多vb.net知识，请参看 [vb.net教程][vb.net] 目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/5155fbd1aae54e6fa0ac74f786d0e4c2.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/