[原创]打印richtextbox的解决方案

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

在实际应用中,我们经常会遇到要打印文本框的情况,自行换行是一个必须解决的首要问题,最初我也不太懂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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航