Marty,
I looked at that thread. I tried it but got an error message about Flags. Where do I set up flags?

Thanks

oCommonDialog.Flags = 0x100
oCommonDialog.ShowPrinter
oRichTextBox.SelPrint(oCommonDialog.hdc)