急问 ：如果Printer不支持在程序中不同打印机之间的切换那我有什么办法解决那

Question

我现在很急

Answer 1

For Each X In Printers
       //...........
   
Next
Printers里包含你机器里安装的所有打印机
可以用X.DeviceName判断出你想切换的打印机
Set Printer = X
就可以了吧

Answer 2

我用
X.Printer "xxxxxxxxxxxxxxxxxxxx"
提示我出错

Answer 3

我用SendToString（myArray,X）'X上面用到的X
这样可以以吗
Public Function SendToString(OutString() As String, X As Printer) As Integer
  Dim status As Integer
  Dim printerStr As String
  Dim i As Integer
  status = True
  X.Font.Name = "Code39OneText"
  X.Font.Size = "20"
  For i = 0 To 20
    X.Print "  " & OutString(i)
  Next
为什么出现错误呀

Answer 4

Private Sub Command1_Click()
    If List1.ListIndex >= 0 Then
        '设定默认打印机:
         Set Printer = Printers(List1.ListIndex)
         Command1.Caption = Printer.DeviceName
    End If
End SubPrivate Sub Form_Load()
    If Printers.Count < 1 Then
        MsgBox "系统没有安装打印机！", vbCritical, App.Title
        Unload Me
        Exit Sub
    Else
    
        Dim Prns As Printer
        For Each Prns In Printers
            List1.AddItem Prns.DeviceName
        Next
        List1.ListIndex = -1
    End If
End Sub'下面代码用来修改打印方向
'Printer.Orientation=VbPRORPortrait   '纵向打印( =1)
'Printer.Orientation=VbPRORLandscape  '横向打印( =2)