怎样调用打印机设计的对话框

就像开始--设置--打印机 一样

解决方案 »

  1.   

    CommonDialog1.ShowPrinter添加一commondialog 控件。。
      

  2.   

    CommonDialog1.ShowPrinter，不管用，不能真正改变计算机打印机的配置
      

  3.   

    用CommonDialog控件Dim BeginPage, EndPage, NumCopies, Orientation, i
    '将 Cancel 设置成 True。
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    '显示“打印”对话框。
    CommonDialog1.ShowPrinter
    '从对话框中获取用户选定数值。
    BeginPage = CommonDialog1.FromPage
    EndPage = CommonDialog1.ToPage
    NumCopies = CommonDialog1.Copies
    Orientation = CommonDialog1.Orientation
    For i = 1 To NumCopies'在此放置代码，将数据发送到打印机。Next
    Exit Sub
    ErrHandler:
    '用户按下了“取消”按钮。
    Exit Sub
      

  4.   

    Dim ii = Shell("rundll32.exe shell32.dll SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus)
      

  5.   

    ShellExecute Me.hwnd, "open", "explorer", "::{2227A280-3AEA-1069-A2DE-08002B30309D}", vbNullString, SW_SHOWNORMAL
      

  6.   

    或者
    Shell "explorer ::{2227A280-3AEA-1069-A2DE-08002B30309D}"