.....
على السريع جداً جداً....
منقول
أضف المرجع 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
.....
أشكرك كل الشكر عزيزي
انت حقاً vb.net يمشي على الارض
والعفو منك .. تبقت لي مسئله..
الحدث كان في زر .. وانا اريده أوتوماتيكياً بمجرد وجود أمر طباعه جديد
جربت الثريد لكني لم أفلح
أتمنى لك التوفيق في كل شيئ وفي حل معضلتي خصوصاً
وانشاء الله لك مني اهداء في كتاب بدأت في كتابته اليوم وآمل ان انهيه غداً . ^_^