Code "PrintDocument1"

RichTextBox1.SelectAll()
        e.Graphics.DrawString( _
            RichTextBox1.SelectedText, _
            RichTextBox1.SelectionFont, _
            Brushes.Black, _
            New System.Drawing.RectangleF( _
                e.MarginBounds.Top, _
                e.MarginBounds.Left, _
                e.PageBounds.Width, _
                e.PageBounds.Height))
        e.HasMorePages = False