تقييم الموضوع :
  • 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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة هامة جدا ashfgsm 14 174 منذ 33 دقيقة مضت
آخر رد: ashfgsm
  [VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي dubai.eig 2 41 أمس, 10:22 AM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص عمل زر Next previous dubai.eig 7 124 15-10-17, 11:11 PM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص ال textbox dubai.eig 2 47 12-10-17, 09:07 PM
آخر رد: dubai.eig
  [VB.NET] مساعدة بخصوص mysql MOSTAFA.KAMEL 0 43 06-10-17, 07:30 AM
آخر رد: MOSTAFA.KAMEL
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 82 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  [سؤال] بخصوص اداة المتصفح WebKit.NET ابو روضة 0 47 28-09-17, 01:42 PM
آخر رد: ابو روضة
  [VB.NET] طلب بخصوص الفيس بوك MOSTAFA.KAMEL 8 232 27-09-17, 05:32 PM
آخر رد: MOSTAFA.KAMEL
  مساعدة في الكود hikmat 0 37 27-09-17, 10:08 AM
آخر رد: hikmat
  استفسار بخصوص الصيغة bidaya 2 100 26-09-17, 05:25 PM
آخر رد: wale90

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


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