通过获取打印打印队列 [英] By obtaining prints print queue

问题描述

所有的朋友

作为帖子的特点，我花时间打印我的显示号码牌的打印队列

使用此代码，我已经选择打印提交

代码：

Private Sub Timer1_Tick（ByVal sender As System.Object，ByVal e As System.EventArgs）处理Timer1.Tick Dim searchPrintJobs As ManagementObjectSearcher = New ManagementObjectSearcher（SELECT * FROM Win32_PrintJob）

Dim jobs In ManagementObjectCollection = searchPrintJobs.Get

For Each job As ManagementObject In jobs

Dim str_list （3）As String

str_list（3）=（job.Properties（Document）。Value.ToString）

str_list（2）=（job.Properties（ size）。Value.ToString +KB）

str_list（1）=（job.Properties（TotalPages）。Value.ToString）

str_list（ 0）=（ManagementDateTimeConverter.ToDateTime（job.Properties（TimeSubmitted）。值））

Dim itm As New ListViewItem（str_list）

ListView1.Items.Add（itm）

remove_empty_row（）

下一页

结束子

Sub remove_empty_row（）

Dim i As Integer = 0

而我< ListView1.Items.Count

如果CStr（ListView1.Items.Item（i）.Text）=那么

ListView1.Items.RemoveAt（i）

Else

i + = 1

结束如果

结束时

对于行如Int16 = 0到ListView1.Items.Count - 2

For RowAgain As Int16 = ListView1.Items.Count - 1 To Row + 1 Step -1

If ListView1.Items（Row ）.ToString = ListView1.Items（RowAgain）.ToString然后

ListView1.Items.RemoveAt（RowAgain）

结束如果

下一页

下一页

结束子

关闭程序两次打开后显示正确的信息





pic和节目

解决方

Hi to all friends
As is characteristic of the post I took the time to print a print queue for my display number plates
With this code, I've chosen to print submissions
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim searchPrintJobs As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_PrintJob")
Dim jobs As ManagementObjectCollection = searchPrintJobs.Get
For Each job As ManagementObject In jobs
Dim str_list(3) As String
str_list(3) = (job.Properties("Document").Value.ToString)
str_list(2) = (job.Properties("size").Value.ToString + "KB ")
str_list(1) = (job.Properties("TotalPages").Value.ToString)
str_list(0) = (ManagementDateTimeConverter.ToDateTime(job.Properties("TimeSubmitted").Value))
Dim itm As New ListViewItem(str_list)
ListView1.Items.Add(itm)
remove_empty_row()
Next
End Sub
Sub remove_empty_row()
Dim i As Integer = 0
While i < ListView1.Items.Count
If CStr(ListView1.Items.Item(i).Text) = "" Then
ListView1.Items.RemoveAt(i)
Else
i += 1
End If
End While
For Row As Int16 = 0 To ListView1.Items.Count - 2
For RowAgain As Int16 = ListView1.Items.Count - 1 To Row + 1 Step -1
If ListView1.Items(Row).ToString = ListView1.Items(RowAgain).ToString Then
ListView1.Items.RemoveAt(RowAgain)
End If
Next
Next
End Sub
After closing the program twice to open the correct information was displayed


pic and program

解决方案

这篇关于通过获取打印打印队列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！