FoxPro/Visual FoxPro - Imprimir un RichTextBox

Tengo un interrogante que no sé como resolverlo. Necesito imprimir el contenido de un Rich Text Box y también un gráfico de MS Chart que tengos agregados a un formulario...
Si me pueden ayudar les agradecería mucho.

Es algo asi ...

textortf=createobject("richtext.richtextctrl")
commdlg1=createobject("mscomdlg.commondialog")

textortf.loadfile("c:\adicto.doc",0)

cdlPDReturnDC=256
cdlPDNoPageNums=8
cdlPDSelection=1
cdlPDAllPages=0

CommDlg1.Flags = cdlPDReturnDC + cdlPDNoPageNums
if textoRTF.SelLength = 0
CommDlg1.Flags = CommDlg1.Flags ;
+ cdlPDAllPages
Else
CommDlg1.Flags = CommDlg1.Flags ;
+ cdlPDSelection
EndIf

CommDlg1.ShowPrinter
textortf.SelPrint(CommDlg1.hdc)

Espero te sirva...

Lo voy a probar a ver que sale...

Gracias