[aenisVB]

السلام عليكم أول شيئ طلع كل الطابعات :
   Dim p As Printer
   
   For Each p In Printers
    List1.AddItem p.DeviceName
   Next
For i = 0 To List1.ListCount - 1
 If List1.list(i) = Printer.DeviceName Then
  List1.ListIndex = i
  Exit Sub
 End If
Next
الباقي عليك ربط كل زر مع الطابعة