Dim Prn As Printer
                For Each Prn In Printers
                    If Prn.DeviceName = List2.List(0) Then
                        Set Printer = Prn
                        Printer.Print "test"
                        Exit For
                    End If
                Next