大家幫忙﹐幫我看看這個問題怎么解決(打印問題)

Question

Dim X As Printer
For Each X In Printers
   If X.DeviceName = "A" Then
      ' Set printer as system default.
      Set Printer = X
      Exit For
   End If
Next

Answer 1

'//打印机列表 
   For i = 0 To Printers.Count - 1
        cboPrinters.AddItem Printers(i).DeviceName
        ' if this is the current printer, select it
        If Printers(i).DeviceName = Printer.DeviceName Then
            ' this indirectly executes ShowPrinterInfo
            cboPrinters.ListIndex = i
        End If
    Next'//设为当前打印机
    Set Printer = Printers(cboPrinters.ListIndex)
'//cboPrinters.ListIndex这个可以是任意在你计算机上安装的合法计算机名如:Set Printer = Printers("Abc")