هذا الكود يحتاج إلى combo و command وهو لعرض الطابعت عندك لكي تستخدمها في عملية الطباعة
Private Sub Command1_Click()
On Error GoTo 10
Set Printer = Printers(Combo1.ListIndex)
Print Printer.DeviceName
GoTo 11
10
If Err.Number = 9 Then
Print Printer.DeviceName
Else
Print "please choose your printer"
End If
11
End Sub
Private Sub Form_DblClick()
Print Printer.DeviceName
End Sub
Private Sub Form_Load()
Dim d As Integer
For d = 0 To Printers.Count - 1
Combo1.AddItem Printers(d).DeviceName
Next
'Combo1.Text = Printers(Printers.Default).DeviceName
Combo1.Text = "Please chose your printer"
End Sub
مع تحيات منتديات نوردين المتطورة
الخميس ديسمبر 13, 2012 4:43 pm من طرف 
الموقع
موضوع: كود لعرض جميع الطابعات في الجهاز واعتماد طابعة افتراضية 
