求完美打印rtf格式代码

Question

听说打印rtf格式存在很多问题,我也对自己的代码产生了顾虑,贴出来给大家看看是不是很OK.
如果不太好,麻烦请各位贴出一个比较OK的.Private Sub mnuFilePrint_Click()CommonDialog.Flags = cdlPDReturnDC + cdlPDNoPageNums
    
If RichTextBox1.SelLength = 0 Then
    CommonDialog.Flags = CommonDialog.Flags + cdlPDAllPages
Else
    CommonDialog.Flags = CommonDialog.Flags + cdlPDSelection
End If
    
CommonDialog.ShowPrinter
    
If Err <> 32755 Then
    RichTextBox1.SelPrint CommonDialog.hDC
End IfEnd Sub

Answer 1

try:Shell "rundll32.exe MSHTML.DLL，PrintHTML c:\xxx.rtf"

Answer 2

我晕~~ 机器里正好有一个,叫Tencent Virtual Printer,在网上查了资料才知道是安装QQ时进去的,用这个行吗?怎么用啊?

Answer 3

To: chewinggum(口香糖·把减肥列入下一个五年计划)我想看看代码能否正常工作(现实生活中),比如能否正确识别各种型号打印机等,用虚拟打印机好像一切打印任务都能完成的很OK,这不是我想要的.谁能告诉我贴出的代码有没有问题??