哪个晓得么样调出打印机设置的窗口，感谢万分！

Question

'引用 Microsoft Common Dialog Controls 6.0
'点击菜单: 工程 -> 引用 -> 浏览 -> 文件类型:(ActveX 控件 *.ocx) -> COMDLG32.OCX
Private Sub Command1_Click()
Dim x As New MSComDlg.CommonDialog
x.Flags = cdlPDPrintSetup
x.CancelError = True
On Error GoTo ErrorHandle
x.ShowPrinter
Exit Sub
ErrorHandle:
If Err.Number <> 32755 Then
   VBA.MsgBox Err.Number & ";" & vbCrLf & Err.Description
End If
End Sub