CommonDialog1.ShowPrinter怎样才能不改变系统默认打印机

Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
Next i
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub

使用以上的代码可以实现选择打印机后打印，但同时系统默认的打印机也改变了，我想要的是：选择打印机只针对本次打印有效，系统默认的打印机不要改变，请教怎样才能实现？ 打印 --------------------编程问答-------------------- 没人哦，顶上 --------------------编程问答-------------------- 我去瞧瞧，我记得用printers集合来选择比较好，不过就没这对话框了吧 --------------------编程问答-------------------- 看到了 CommonDialog1.PrinterDefault=False就可以了，不过好象读不到打印机名称,
用下边的代码可以用非默认打印机打印，不过不关这个对话框什么事了

Dim P as Printer

For Each P In Printers

  if P.DeviceName="XXXXX" Then exit For

Next

Set Printer=P

Printer.Print "afasdfasdf"

Printer.EndDoc

补充：VB ,  数据库(包含打印，安装，报表)