|
在实际应用中，我们经常会遇到要打印文本框的情况，自行换行是一个必须解决的首要问题，最初我也不太懂MeasureString这个函数，走了许多弯路，用正则表达式进行单字匹配，执行的效率低效果又不太理想。
后来发贴求解，有一熟手提醒，于是自己写下代码，供后来者学习研究。
'============================================
'Power by：landlordh
'Print richtextbox or mulitline textbox
'============================================
Private intcurrentchar As Integer
Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Pdoc.PrintPage
Try
Dim g As Graphics
g = e.Graphics
Dim pen As New Drawing.Pen(Color.Black, 3)
Dim font As New Font("Arial", 9)
Dim font1 As New Font("Arial", 12)
Dim font2 As New Font("Arial", 10)
Dim intPrintAreaHeight As Integer
Dim intPrintAreaWidth As Integer
intPrintAreaHeight = Pdoc.DefaultPageSettings.PaperSize.Height - Pdoc.DefaultPageSettings.Margins.Top - Pdoc.DefaultPageSettings.Margins.Bottom
intPrintAreaWidth = Pdoc.DefaultPageSettings.PaperSize.Width - Pdoc.DefaultPageSettings.Margins.Left - Pdoc.DefaultPageSettings.Margins.Right
If Pdoc.DefaultPageSettings.Landscape Then
Dim intTemp As Integer = intPrintAreaHeight
intPrintAreaHeight = intPrintAreaWidth
intPrintAreaWidth = intTemp
End If
'Dim intLineCount As Integer = CType((intPrintAreaHeight / font.Height), Integer)
Dim rectPrintingArea As RectangleF = New RectangleF(Pdoc.DefaultPageSettings.Margins.Left, Pdoc.DefaultPageSettings.Margins.Top, intPrintAreaWidth, intPrintAreaHeight)
Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit)
Dim intLinesFilled As Integer
Dim intCharsFitted As Integer
'draw page title
g.DrawString("主题：" & topic.Text, font1, Brushes.Black, 0, 10)
g.DrawLine(pen, 0, 12 + font1.Height, intPrintAreaWidth, 17 + font1.Height)
g.MeasureString(word.Text.Substring(intcurrentchar), font, New SizeF(intPrintAreaWidth, intPrintAreaHeight), fmt, intCharsFitted, intLinesFilled)
g.DrawString(word.Text.Substring(intcurrentchar), font, Brushes.Black, rectPrintingArea)
intcurrentchar += intCharsFitted
intLineCount += intLinesFilled
g.DrawLine(pen, 0, 12 + font1.Height + intPrintAreaHeight + 6, intPrintAreaWidth, 12 + font1.Height + intPrintAreaHeight + 11)
g.DrawString("Power by：LandlordAspx", font2, Brushes.Black, 625, 12 + font1.Height + intPrintAreaHeight + 12)
'g.DrawString("共(" & Pdoc.PrinterSettings.ToPage & ")页", font2, Brushes.Black, 320, 12 + font1.Height + intPrintAreaHeight + 12)
If intcurrentchar < (word.Text.Length - 1) Then
e.HasMorePages = True
Else
e.HasMorePages = False
intcurrentchar = 0
End If
Catch ex As Exception
MessageBox.Show("系统执行时发生以下错误：" & Chr(10) & "错误源：" & ex.Source.ToString & Chr(10) & "错误信息：" & ex.Message.ToString & Chr(10) & Chr(10) & "请记录错误信息，并与管理员联系。", "系统提示")
End Try
End Sub
Private Sub Printing()
Dim PrintDialog1 As New PrintDialog
PrintDialog1.Document = Pdoc
PrintDialog1.AllowSelection = True
PrintDialog1.AllowPrintToFile = True
PrintDialog1.AllowSomePages = True
PrintDialog1.PrintToFile = False
If PrintDialog1.ShowDialog() = DialogResult.OK Then
Pdoc.Print()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(word.Text) <> "" Then
Try
Pdoc.DocumentName = "LandlordAspx RichTextBox打印"
Pdoc.DefaultPageSettings.Margins.Top = 34
Pdoc.DefaultPageSettings.Margins.Bottom = 70
Pdoc.DefaultPageSettings.Margins.Left = 0
Pdoc.DefaultPageSettings.Margins.Right = 18
Printing()
Catch ex As Exception
End Try
End If
End Sub
|
