VB怎么选择指定打印机

Question

有几台打印机，其中一台为默认打印机，现在要在VB程序里面实现选择非默认的打印机，怎么实现，用到哪些方法啊？

Answer 1

将非默认的打印机设为默认的打印机strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = '非默认的打印机")
For Each objPrinter in colInstalledPrinters
    objPrinter.SetDefaultPrinter()
Next
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

1、通用对话框.showprint
2、dim x as printer
   for each x in printers
   if x.orientation=vbprorportrait then
     set printer=x
     exit for
   endif
   next

Answer 3

     '设置打印机名
    Dim devPrinter As Printer    For Each devPrinter In Printers
       If devPrinter.DeviceName = "已知的打印机名(可通知界面设置写入注册表或INI文件)" Then
          '设定为系统缺省打印机。
          Set Printer = devPrinter
          ' 终止查找打印机。
          Exit For
       End If
    Next