如何实现VB.NET 打印控件的使用

system.drawing.printing  命名空间
printerSettings    打印机设置类
PageSettings      页面设置类
PrintPageEventArgs    要打印页的设置信息类
一、打印图片（加入控件printdocument1方法）

[html]  view plain copy print ?

1. Public Class Form1  
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
3.         Try  
4.             AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintGraphics  
5.             PrintDocument1.Print()  
6.         Catch ex As Exception  
7.             MsgBox(ex.Message)  
8.         End Try  
9.     End Sub  
10.   
11.     Private Sub PrintGraphics(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)  
12.         ev.Graphics.DrawImage(System.Drawing.Image.FromFile(TextBox1.Text), ev.Graphics.VisibleClipBounds)  
13.         ev.HasMorePages = False  
14.     End Sub  
15. End Class  

二、打印文字（创建对象printdocument方法）

[html]  view plain copy print ?

1. Public Class Form1  
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
3.         Try  
4.             Dim printDoc As New System.Drawing.Printing.PrintDocument  
5.             AddHandler printDoc.PrintPage, AddressOf Me.PrintText  
6.             printDoc.Print()  
7.         Catch ex As Exception  
8.             MsgBox(ex.Message)  
9.         End Try  
10.     End Sub  
11.   
12.     Private Sub PrintText(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)  
13.         ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 11, FontStyle.Bold), Brushes.Black, 40, 40)  
14.         ev.HasMorePages = False  
15.     End Sub  
16. End Class  

上面两个方法都是简单的方法，但有重大的缺点：
1、字符串不会自动转行，也就是说过长的字符串会“打印”到页面的“外面”去；
2、只能打印一页。
下面来解决上面两个问题。
三、完美打印过长的字符串（占有几页）

描述：open按钮打开一个对话框，选择一个文件，并将文本反映到richtextbox上。同时激活print,再按，就执行打印。

[vb]  view plain copy print ?

1. Imports System.IO  
2. Imports System.Drawing.Printing  
3.   
4. Public Class Form1  
5.     Private PrintPageSettings As New PageSettings  
6.     Private StringToPrint As String  
7.     Private PrintFont As New Font("Arial", 10)  
8.   
9.     Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click  
10.         Dim FilePath As String  
11.         OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"  
12.         OpenFileDialog1.ShowDialog()  
13.         If OpenFileDialog1.FileName <> "" Then  
14.             FilePath = OpenFileDialog1.FileName  
15.             Try  
16.                 Dim MyFileStream As New FileStream(FilePath, FileMode.Open)  
17.                 RichTextBox1.LoadFile(MyFileStream, RichTextBoxStreamType.PlainText)  
18.                 MyFileStream.Close()  
19.                 StringToPrint = RichTextBox1.Text '初始化打印字符串  
20.                 btnPrint.Enabled = True  
21.             Catch ex As Exception  
22.                 MessageBox.Show(ex.Message)  
23.             End Try  
24.         End If  
25.     End Sub  
26.   
27.     Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click  
28.         Try  
29.             '指定当前页设置  
30.             PrintDocument1.DefaultPageSettings = PrintPageSettings  
31.             '指定“打印”对话框的文档并显示  
32.             StringToPrint = RichTextBox1.Text  
33.             PrintDialog1.Document = PrintDocument1  
34.             Dim result As DialogResult = PrintDialog1.ShowDialog()  
35.             If result = DialogResult.OK Then  
36.                 PrintDocument1.Print() '打印，并非由“打印”对话框控制.正如OpenFileDialog表现的形式一样。  
37.             End If  
38.         Catch ex As Exception  
39.             MessageBox.Show(ex.Message)  
40.         End Try  
41.     End Sub  
42.   
43.     Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage  
44.         Dim numChars As Integer  
45.         Dim numLines As Integer  
46.         Dim stringForPage As String  
47.         Dim strFormat As New StringFormat  
48.         '根据页面设置，定义可用的页面区域（打印区域）  
49.         Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)  
50.         '定义区域，来确定一个页面可容纳多少文本，并使文本高度少一行，以免文本被减短  
51.         Dim sizeMeasure As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))  
52.   
53.         '处理长字符串时，按单词进行断开（换行）  
54.         strFormat.Trimming = StringTrimming.Word  
55.         '用MeasureString计算出可容纳的字符串个数numChars和行数numLines  
56.         e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)  
57.         '计算出适应页面的字符串  
58.         stringForPage = StringToPrint.Substring(0, numChars)  
59.         '（逻辑上）在当前页打印字符串  
60.         e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)  
61.         '若还有需要打印的文本，则继续处理剩下的页面  
62.         If numChars < StringToPrint.Length Then  
63.             '删除已经打印的字符串  
64.             StringToPrint = StringToPrint.Substring(numChars)  
65.             e.HasMorePages = True  
66.         Else  
67.             e.HasMorePages = False  
68.             StringToPrint = RichTextBox1.Text  
69.         End If  
70.     End Sub  
71. End Class  

开始读了N久没明白什么意思？看了一下午，再逐条进行调试才明白原来打印的原理是这样的：
1、首先Printdialog1打印对话框，只是设置选择哪个打印机，用哪种方式来打印（通过PrintDialog1.Document = PrintDocument1来进行关联），与具体打印的字符串无关。
2、关键：PrintPage事件发生在打印“当前”页面，也就是说打印3页，这个事件就会发生3次。每次可以通过此事件来设置页面内容（逻辑上）。这样就可以控制打印多页。
3、通过MeasureString来计算每页可容纳的字符串和行数，这样就很好的控制每页的具体字符串，循环这个方法计算剩下的字符进行每页设置并打印。
再增加两个按钮，一个页面设置，一个是页面预览，代码如下：

[vb]  view plain copy print ?

1. Private Sub btnSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetup.Click  
2.     Try '页面设置  
3.         PageSetupDialog1.PageSettings = PrintPageSettings  
4.         PageSetupDialog1.ShowDialog()  
5.     Catch ex As Exception  
6.         MessageBox.Show(ex.Message)  
7.     End Try  
8. End Sub  
9.   
10. Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click  
11.     Try '页面预览  
12.         PrintDocument1.DefaultPageSettings = PrintPageSettings  
13.         StringToPrint = RichTextBox1.Text  
14.         PrintPreviewDialog1.Document = PrintDocument1  
15.         PrintPreviewDialog1.ShowDialog()  
16.     Catch ex As Exception  
17.         MessageBox.Show(ex.Message)  
18.     End Try  
19. End Sub