在vb里怎么实现打印功能？如需编码请提供一个源代码,谢谢！

实现打印功能需要一个公共对话框CommonDialog,在工程菜单-部件-选中micrsoft common dialog control 60
代码:
Private Sub Command1_click()
CommonDialog1ShowPrinter
或
CommonDialog1Action=5
End

---