VB指定打印机打印的问题

为什么在这里选择打印机后默认打印机也会跟着变？
CommonDialog1.ShowPrinter

求解

Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim PRN As Printer
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open(App.Path & "\GOOD.xls")
xlApp.Visible = False
Set xlSheet = xlBook.Worksheets("SFNEW")
Call SelPrinter("doPDFv7")
xlSheet.PrintOut
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
Public Sub SelPrinter(Pnm$)
For Each PRN In Printers
If PRN.DeviceName = Pnm Then Set Printer = PRN: Exit For
Next
End Sub

我明白了 我的打印是在VB6打印 所以选择打印机没问题 是我错了 因为你是在excel外部程序打印 我的代码你才没效果 我没设置过 抱歉
如果你有打印机 你可以在excel文件打开后 录制宏 可以解析出代码来的
VbExcel.ActivePrinter =" [url]http://\\10.8.80.83\Konica......[/url]"
试试看吧

Private Sub Command3_Click()
Dim X As Printer
Dim k As Long
Text1.Text = Printer.DeviceName '获得系统默认打印机
k = 0
For Each X In Printers
If X.DeviceName = "Microsoft Office Document Image Writer" Then
' 打印机的名称可以通过控制面板打印机和传真里面的打印机名称获得
' 设置在vb程序控制下的默认打印机 Set printer as system default.
Set Printer = X
Exit For
End If
Next
Text2.Text = Printer.DeviceName '在vb程序中设置的默认打印机，不改变windows的默认设置
'word等其他程序的打印，仍然为windows原来的默认的打印机
'或者退出vb程序后，仍然为windows原来的默认的打印机
End Sub
End Sub