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