Visual Basic - Misterioso error al implementar impresora

Tengo el clasico editor RTF, comandado por una Toolbar que cambia las propiedades. No obstante, la impresora no funciona, cuando implemento el codigo que me da el libro de donde aprendo ( Visual Basic 6 de Victor Santacreu), cuando quiero mandar el texto RTF a la hoja, me sale un dialogo que solo dice "0100", sin darme informacion.

Este es el codigo que me da el libro:

CommonDialog1.ShowPrinter
MsgBox CommonDialog1.hDC & " " & CommonDialog1.Copies & " " & CommonDialog1.FromPage & " " & CommonDialog1.ToPage
CommonDialog1.PrinterDefault = True
Printer.Copies = CommonDialog1.Copies

Para implementar Abrir, Guardar, Color... tuve que instalar cada menu y despues actuar sobre la caja RTF, deberia funcionar asi o tengo que hacer otra cosa?

agradecido, Lucas.