Need help printing multiple fonts on printer from richtextbox

[bschomp]

Hi, when I try to print from my richtextbox it's not printing what I have typed in. I want to be able to print the image that it shows. So if I type in Hello World it will print out Hello World. This goes for color too. Any help would be most appreciated. My code is below.
Thanks

-B

Imports System
Imports System.Windows. Forms
Imports System.Drawing
Imports System.Runtime. InteropServices
Imports System.Drawing. Printing
Public Class Form1

Dim checkprint As Integer
Private Sub printtext(ByVal sender As Object, ByVal ev As PrintPageEventA rgs)
ev.Graphics.Dra wString(RichTex tBox1.Text, New Font("Arial", 11, FontStyle.Regul ar), _
Brushes.Black, 120, 120)

End Sub



Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click
Dim printdoc As New PrintDocument
AddHandler printdoc.PrintP age, AddressOf Me.printtext
printdoc.Print( )

End Sub
Private Sub ChangeColorTool StripMenuItem_C lick(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles ChangeColorTool StripMenuItem.C lick
ColorDialog1.Sh owDialog()
RichTextBox1.Se lectionColor = ColorDialog1.Co lor
RichTextBox1.Fo cus()
End Sub

Private Sub ChangeFontToolS tripMenuItem_Cl ick(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles ChangeFontToolS tripMenuItem.Cl ick
FontDialog1.Sho wDialog()
RichTextBox1.Se lectionFont = FontDialog1.Fon t
RichTextBox1.Fo cus()

End Sub
End Class