تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة بخصوص الطابعه
#1
Sad 
السلام عليكم أخواني مساعده من اصحاب الخبره
الرابط اسفل المشاركه فيه شرح لخصائص الطابعه من مايكروسوفت

" حاجتي هي رساله بعدد الاوراق ومصدر الطباعه "

أسبوع ماوصلت لشيئ . Sad





http://msdn.microsoft.com/en-us/library/...10%29.aspx
الرد }}}}
تم الشكر بواسطة:
#2
.....

على السريع جداً جداً....

منقول

أضف المرجع System.Management.dll
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' أضف المرجع التالي
    ' Reference: System.Management.dll

    ' مزيد من المعلومات
    ' http://msdn.microsoft.com/en-us/library/aa394370(v=vs.85).aspx
    ' http://msdn.microsoft.com/en-us/library/aa387873(v=vs.85).aspx

    Dim printJobSet As New Management.ManagementObjectSearcher(New System.Management.ObjectQuery("SELECT * FROM Win32_PrintJob"))
    For Each printJob As Management.ManagementObject In PrintJobSet.Get()
        Dim itm As New ListViewItem
        itm.Text = printJob("Document")
        itm.SubItems.Add(printJob("Status"))
        itm.SubItems.Add(printJob("PagesPrinted") & "/" & printJob("TotalPages"))
        Me.ListView1.Items.Add(itm)
    Next job

End Sub

أو بدون مرجع
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    ' مزيد من المعلومات
    ' http://msdn.microsoft.com/en-us/library/aa394370(v=vs.85).aspx
    ' http://msdn.microsoft.com/en-us/library/aa387873(v=vs.85).aspx

    Dim printJobSet As Object = GetObject("winmgmts:").InstancesOf("Win32_PrintJob")
    For Each printJob As Object In printJobSet
        Dim itm As New ListViewItem
        itm.Text = printJob.Document
        itm.SubItems.Add(printJob.Status)
        itm.SubItems.Add(printJob.PagesPrinted & "/" & printJob.TotalPages)
        Me.ListView1.Items.Add(itm)
    Next

End Sub

.....
الرد }}}}
تم الشكر بواسطة: عقرب يماني , kslawy
#3
أشكرك كل الشكر عزيزي
انت حقاً vb.net يمشي على الارض Smile

والعفو منك .. تبقت لي مسئله..

الحدث كان في زر .. وانا اريده أوتوماتيكياً بمجرد وجود أمر طباعه جديد
جربت الثريد لكني لم أفلح Sad

أتمنى لك التوفيق في كل شيئ وفي حل معضلتي خصوصاً

وانشاء الله لك مني اهداء في كتاب بدأت في كتابته اليوم وآمل ان انهيه غداً . ^_^
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 78 أمس, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 45 01-12-16, 03:09 AM
آخر رد: khalaroy
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 149 30-11-16, 11:21 PM
آخر رد: awidan76
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 171 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 285 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 71 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 78 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 83 16-11-16, 11:58 AM
آخر رد: أبووسم
  [سؤال] CrystalReports بخصوص GroubBy thevirus 1 58 15-11-16, 10:51 PM
آخر رد: السرور

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


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