For i = 0 To Len(RichTextBox1.Text)
RichTextBox1.SelStart = i
RichTextBox1.SelLength = 1
Printer.Font = RichTextBox1.SelFontName
Printer.FontSize = RichTextBox1.SelFontSize
Printer.FontBold = RichTextBox1.SelBold
Printer.FontItalic = RichTextBox1.SelItalic
'其它属性自己设置吧~~
Printer.Print RichTextBox1.SelText
Next
Printer.EndDoc
End Sub