Private Sub Form_Click()
Dim W1 As WbemScripting.SWbemLocator
Dim S As WbemScripting.SWbemServices
Dim OS As WbemScripting.SWbemObjectSet
Dim O As WbemScripting.SWbemObject
Set W1 = New WbemScripting.SWbemLocator
Set S = W1.ConnectServer
Set OS = S.InstancesOf("Win32_PrintJob")
For Each O In OS
Me.Print O.GetObjectText_
Next
Set OS = Nothing
Set S = Nothing
Set W1 = Nothing
End Sub上面代码执行后
结果如下:请问:
图中各项属性后面的值代表什么意思???
Dim W1 As WbemScripting.SWbemLocator
Dim S As WbemScripting.SWbemServices
Dim OS As WbemScripting.SWbemObjectSet
Dim O As WbemScripting.SWbemObject
Set W1 = New WbemScripting.SWbemLocator
Set S = W1.ConnectServer
Set OS = S.InstancesOf("Win32_PrintJob")
For Each O In OS
Me.Print O.GetObjectText_
Next
Set OS = Nothing
Set S = Nothing
Set W1 = Nothing
End Sub上面代码执行后
结果如下:请问:
图中各项属性后面的值代表什么意思???
数据类型
描述
文档
驱动名称
缩主打印队列
任务ID
任务状态
通知者
所有者
已经打印页数
参数
打印处理器
优先级
文件大小
状态
状态Mask
发送时间?
总页数