当前电脑上安装了三个打印机，我怎么设置当前系统的打印为其中某一个打印机呢？

Question

当前电脑上安装了三个打印机，我怎么设置当前系统的打印为其中某一个打印机呢？

Answer 1

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)