Public Sub PrintText(rtObj as RichTextBoc)
Printer.PrintQuality = vbPRPQMedium

With rtobj
.SaveFile App.Path + "\tempo.rtf", rtfRTF
.SelStart = 0

While Len(.Text) > 0
.SelLength = InStr(.SelStart + 1, .Text, vbCrLf) + 1
Printer.Font.Name = .SelFontName
Printer.Font.Size = .SelFontSize
Printer.Font.Bold = .SelBold
Printer.Print Mid(.SelText, 1, .SelLength - 2)
.SelText = ""
.SelStart = 0
Wend

.LoadFile App.Path + "\tempo.rtf", rtfRTF
End With
Printer.EndDoc
END SUB