Question

VB6 如何打开指定打印机的属性对话框

如下图所示，如何才能将指定的打印机属性设置对话框打开？

Answer 1

Set sh = CreateObject("Shell.Application")
For Each i In sh.NameSpace(4).Items
  If i.Name = "hp LaserJet 1015" Then
    Set vs = i.Verbs
    vs.Item(vs.Count - 1).DoIt
  End If
Next

追问

不错，这个 能够打开指定打印机的属性对话框，但是还得人工再次单击“打印首选项...”按钮才能出现如果所示的属性对话框，如何修改这个代码，使得直接弹出“打印首选项”对话框呀？

追答

Set sh = CreateObject("Shell.Application")
For Each i In sh.NameSpace(4).Items
  If i.Name = "hp LaserJet 1015" Then
    For Each v In i.Verbs
      If v.Name = "打印首选项(&E)..." Then v.doit
    Next
  End If
Next