17-10-12, 12:47 AM
كاتب الموضوع : AhmedEssawy
هذا الكود يحتاج إلى 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