Gracias por la ayuda. Efectivamente logre imprimir pero sin formato. ¿Cómo puedo solucionar ese problema?
Este el código que utilize:
Form1:
Public Class Form1
Private
Sub PrintDocument1_PrintPage(sender As Object, e As
Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim LAPIZ As New SolidBrush(ControlRTF.ForeColor
Dim AREA_IMPRESION As Graphics = e.Graphics
AREA_IMPRESION.DrawString(ControlRTF.Text,ControlRTF.Font,Lapiz,0,0)
End Sub
Private Sub ButtonPREVIA_Click(sender As Object, e As EventArgs) Handles ButtonPREVIA.Click
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub
End Class