كودعرض جميع الطابعات في الجهاز واعتماد طابعة افتراضية

[عنـ الشوق ـاد]

كودعرض جميع الطابعات في الجهاز واعتماد طابعة افتراضية


هذا الكود يحتاج إلى combo و command وهو لعرض الطابعت عندك لكي تستخدمها في عملية الطباعة ، وللمزيد يمكن مراجعة درس الأستاذ تركي العسيري ( كائن الطباعة للمبتدئين ) :

[QUOTEPrivate 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][/QUOTE]