how to print all data in rich textbox on Visual Basic

now.., if you think to print all data on a richtextbox is a hard to do, you wrong just foolow that steps:
1. create new project
2. create new form, richtextbox, and one command1 button then include that code :

Private Sub Command1_Click()
Printer.FontName = "Courier New" 'font type
Printer.FontSize = "9" 'size
Printer.Print RichTextBox1.Text 'print all
'to printer
Printer.EndDoc
End Sub

3. turn on your printer, run your project, click command

good luck

just download the project : (use password : do-stupid-things.blogspot.com)
Print all in Rich TextBox.rar