Dim Printer_Name As Printer
Set Printer_Name = Printer
For Each Printer_Name In Printers
    List1.Additem Printer_Name.DeviceName
Next