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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة طباعة دفاتر صكوك مصرفية الزوي 2 37 منذ 9 دقيقة مضت
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص التوقيت العالمي dubai.eig 6 71 أمس, 02:28 AM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص تصغير الفورم محمد اسماعيل 10 113 18-07-18, 05:57 PM
آخر رد: محمد اسماعيل
  مساعدة من فضلكم ! ! hichem1 1 60 17-07-18, 04:35 AM
آخر رد: elgokr
  [نقاش] بخصوص اضافه خرائط جوجل الى برنامجك webbrowser control dametucorazon 12 115 08-07-18, 06:30 AM
آخر رد: dametucorazon
Sad [VB.NET] طلب مساعدة في برنامج للتحديث الروابط Salim sadek 4 98 06-07-18, 12:38 AM
آخر رد: elgokr
  [VB.NET] مساعدة محتاج خبراء ReportViewer dubai.eig 32 829 19-06-18, 09:47 AM
آخر رد: elgokr
  ممكن مساعدة في كود قريد فيو نور الهدى الهدى 3 91 13-06-18, 07:33 PM
آخر رد: elgokr
  مساعدة في تشغيل برنامج على الشبكة ibrahimmakhool 3 176 13-06-18, 11:56 AM
آخر رد: elgokr
  احتاج مساعدة في كود التعديل maram2423 5 130 08-06-18, 03:53 PM
آخر رد: elgokr

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


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