I have a from with which I edit a RTF document. I have included the Common Dialog to retrieve the printer hDC. As in the code extract below:

ThisForm.CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If ThisForm.oleRTF.SelLength = 0 Then
ThisForm.CommonDialog1.Flags = ThisForm.CommonDialog1.Flags +cdlPDAllPages
Else
ThisForm.CommonDialog1.Flags = ThisForm.CommonDialog1.Flags + cdlPDSelection
EndIf
ThisForm.CommonDialog1.ShowPrinter
ThisForm.oleRTF.SelPrint(ThisForm.CommonDialog1.hDC)

This code does not return a valid hDC and the printout is sent into the ether.

Help anyone.