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