HELP with RTB printing please

[a_jam_sandwich]

How the hec do you print a rich text box formatted

Andy

 

[Divil]

http://www.c-sharpcorner.com/Code/2002/Oct/ColorSyntaxEditor.asp

Looks like this guy has managed it.

 

[a_jam_sandwich]

Cheers will look

 

[a_jam_sandwich]

Ive come up with this so far pretty unstructured as yet but works slow.

[VB]
Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdoc.PrintPage
Dim iMargin As Integer = 15
Dim margin As Integer = 10
Dim i As Integer = 0
Dim theWord As String = ""
Dim iPos As Integer
Dim TextLine As String
Dim bLine As Boolean = False
Dim fmt As New StringFormat()

fmt.FormatFlags = StringFormatFlags.LineLimit
Printer.PrinterSettings.DefaultPageSettings.Margins.Left = 75
Printer.PrinterSettings.DefaultPageSettings.Margins.Right = 75
Printer.PrinterSettings.DefaultPageSettings.Margins.Top = 40
Printer.PrinterSettings.DefaultPageSettings.Margins.Bottom = 40
Dim rectPrintingArea As New RectangleF(Printer.PrinterSettings.DefaultPageSettings.Margins.Left, _
Printer.PrinterSettings.DefaultPageSettings.Margins.Top, _
Printer.PrinterSettings.DefaultPageSettings.Margins.Right - Printer.PrinterSettings.DefaultPageSettings.Margins.Left, _
Printer.PrinterSettings.DefaultPageSettings.Margins.Bottom - Printer.PrinterSettings.DefaultPageSettings.Margins.Top)

Dim xPos As Integer = Printer.PrinterSettings.DefaultPageSettings.Margins.Left
Dim yPos As Integer = Printer.PrinterSettings.DefaultPageSettings.Margins.Top

For i = 0 To RTB.Text.Length
RTB.Select(i, 1)
Dim sChar As Char = RTB.SelectedText
Dim cColor As Color = RTB.SelectionColor
Dim fFont As Font = RTB.SelectionFont
Dim iHeight As Integer = fFont.Height
Dim theSize As New SizeF(e.Graphics.MeasureString(theWord, fFont))
If Asc(sChar) = 10 Then
e.Graphics.DrawString(theWord, fFont, New SolidBrush(cColor), xPos, yPos)
xPos += Int(theSize.Width)
theWord = ""
xPos = Printer.PrinterSettings.DefaultPageSettings.Margins.Left
yPos += iHeight + 3
ElseIf Not Asc(sChar) = 32 Or Asc(sChar) = 10 Or Asc(sChar) = 8 Then
theWord = theWord & sChar
Else
If (xPos + theSize.Width > (Printer.PrinterSettings.DefaultPageSettings.PaperSize.Width - 75)) Then
xPos = Printer.PrinterSettings.DefaultPageSettings.Margins.Left
yPos += iHeight + 3
End If
e.Graphics.DrawString(theWord, fFont, New SolidBrush(cColor), xPos, yPos)
xPos += Int(theSize.Width)
theWord = ""
End If
Next
End Sub
[/VB]



Needs support for multipage