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

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

msdn上就是这样说的。如果printerdefault设置为true，就会在系统注册表中改变系统默认打印机设置。当然你如果能和原设置相关的注册表内容保存下来，打印后再还原，也是一种办法。相关注册表项参见：https://support.。看来比较麻烦。
如果设为false，只能使用GDI调用来打印到指定的打印机。
参见https://msdn.
可以考虑用printer对象来打印，参见https://msdn.(v=vs.90).aspx

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

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

vb printer对象就可以选择打印机的。

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

Dim i As Printer
Private Sub Form_Load()
For Each i In Printers
Text1.Text = Text1.Text & i.DeviceName & vbCrLf
Next
End Sub
以上示例列出所有打印机

若要设定打印机
If i.DeviceName = "指定的打印机名称" Then Set Printer = i: exit for

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

确定好用，非常感谢。