关于打印时打印机选择问题

Question

VB中把要打印的内容产生到Excel中,现在有多台打印机，如何用程序调出打印机选择窗口选择打印机？而不是用Windows默认设置的打印机Dim AppExcel As Excel.Application
Set AppExcel = New Excel.Application
AppExcel.Workbooks.Add
'写内容
With AppExcel
...
End With
'打印设置
With AppExcel.ActiveSheet.PageSetup
......
End With

Answer 1

'“工程”—“部件”— 勾选 Microsoft Common Dialog control 6.0 — 确定
' 将 Common Dialog 控件拖到 Form 上。
On Error GoTo Error_Handle
'设定用户按了取消键出错。
cd.CancelError = True
' 显示“打印设置”对话框，而不是“打印”对话框。
cd.Flags = &H40 Or &H80
cd.ShowPrinter
Error_Handle:
  MsgBox "用户按了取消键", vbCritical, "系统提示"

Answer 2

'“工程”—“部件”— 勾选 Microsoft Common Dialog control 6.0 — 确定
' 将 Common Dialog 控件拖到 Form 上。
On Error GoTo Error_Handle
'设定用户按了取消键出错。
cd.CancelError = True
' 显示“打印设置”对话框，而不是“打印”对话框。
cd.Flags = &H40 Or &H80
cd.ShowPrinter
Error_Handle:
  MsgBox "用户按了取消键", vbCritical, "系统提示"

Answer 3

楼上的，我是打印Excel,用Common Dialog行吗？