Printing RichTextBox Contents

[Psy]

Hi,
I need some help with some code to print the contents of a RichTextBox. I don't have any for it because I keep deleting it when I try something new.
Thanks.

[Hack]

Add a PrintDocument to your form and try this:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim fnt As New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
        e.Graphics.DrawString(RichTextBox1.Text, fnt, Brushes.Black, 0, 0)
        e.HasMorePages = False
End Sub

I don't have any for it because I keep deleting it when I try something new.

Huh?

You did have the code you want, but don't anymore because you deleted it?

[Psy]

I don't have any for it because I keep deleting it when I try something new.

Huh?

You did have the code you want, but don't anymore because you deleted it?

I had code that didn't work, so I kept deleting it to try something else.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim fnt As New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
        e.Graphics.DrawString(RichTextBox1.Text, fnt, Brushes.Black, 0, 0)
        e.HasMorePages = False
End Sub

This works, but how do you print keeping all of the colors that are in the RTB, and the margins that it has set?

[Hack]

That will print the richtextbox the way it displays on the screen (at least it does for me) minus any colors. We never use colors in anything because we do not have any color printers.