Ecco subito il codice:
------------------------------------------------------------
Dim Testo As String = RichTextBox1.Text        
Static Lunghezza As String      

Static Posizione As Integer
Dim Carattere As Integer
Dim Linea As Integer    

Dim Font As New Font("Arial",13)
Dim Format As New StringFormat(StringFormatFlags.LineLimit)

Dim Rectangle As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
Dim Size As New SizeF(e.MarginBounds.Width, e.MarginBounds.Heigh
Lunghezza = Len(Testo)
Format.Trimming = StringTrimming.Word
e.Graphics.MeasureString(Mid(Testo, Posizione + 1), Font, Size, Format, Carattere, Linea)                              
e.Graphics.DrawString(Mid(Testo, Posizione + 1), Font, Brushes.Black, Rectangle, Format)
Posizione += Carattere
If Posizione < Lunghezza Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
------------------------------------------------------------
Spero che il frammento di codice possa servirvi.