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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 98 19-05-17, 06:46 PM
آخر رد: dubai.eig
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 79 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 58 17-05-17, 05:14 PM
آخر رد: 0theghost0
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 531 16-05-17, 01:12 AM
آخر رد: salah mansour
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 65 16-05-17, 12:29 AM
آخر رد: alma2
  [نقاش] استفسار بخصوص النت فراموورك Net Framework Ratchinko 4 123 15-05-17, 01:48 AM
آخر رد: Ratchinko
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 86 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 102 10-05-17, 11:17 AM
آخر رد: khaled12345

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


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