On Error Resume Next
CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
If Err.Number <> 0 Then Exit Sub

在网上找到一段代码，可惜用户选择完打印机就把系统默认的打印机修改了，有没有不改变系统默认的打印的办法吗，谢谢。

看来使用VB打印选择打印机还真是麻烦，呵呵，非常感谢。

有没有选择用户指定打印机进行的源码，麻烦贴出来分享下，谢谢。

具体使用方法有吗,网上的例子好象都不能使用,谢谢.

谢谢，我回头试下，非常感谢。

确定好用，非常感谢。