تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفه اي بي Ip الجهاز RaggiTech 0 340 17-10-12, 01:10 AM
آخر رد: RaggiTech
  معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة RaggiTech 0 397 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 366 17-10-12, 01:02 AM
آخر رد: RaggiTech
  كود لمعرفة جميع ال Drivers الموجودة في جهاز الكومبيوتر RaggiTech 0 313 17-10-12, 12:50 AM
آخر رد: RaggiTech
  عرض جميع الخطوط الموجودة في الجهاز RaggiTech 0 252 17-10-12, 12:47 AM
آخر رد: RaggiTech

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


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