I'm having problems printing from a rich text edit box..

Here is a sample of the code that I'm using.. any help in figuring out what I'm doing wrong would be greatly appreciated.

Local f_printer,oPrinter
set step on
f_printer=GetPrinter()
f_title=thisform.caption
Set Procedure to f_rtfprt Additive
oPrinter=CreateObject("PrintObj",f_printer)
oPrinter.StartDoc(oPrinter.hdc,f_title)
oPrinter.StartPage(oPrinter.hdc)
This.parent.parent.RTFEditBox.SELPRINT(oPrinter.hdc)
oPrinter.EndPage(oPrinter.hdc)
oPrinter.EndDoc(oPrinter.hdc)
Release oPrinter
Release Procedure f_rtfprt