تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض جميع الطابعات في الجهاز واعتماد طابعة افتراضية
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم