Need to implemnt the RTF print in application.

[macupryk]

I have the following:

 

Case 12 'print

PrintDialog1.Document = ThePrintDocument

Dim strText As String = Me.txtComments.Text

myReader = New StringReader(strText)

If PrintDialog1.ShowDialog() = DialogResult.OK Then

Me.ThePrintDocument.Print()

End If

 

I need a sub routine for printing different fonts (sizes), underline, bold.

 

Private Sub ThePrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles ThePrintDocument.PrintPage