关于打印机

xayzmb 2012-03-05 02:36:11
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

上面代码执行后
结果如下:



请问:
图中各项属性后面的值代表什么意思???


...全文
115 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
worldy 2012-03-05
  • 打赏
  • 举报
回复
标题
数据类型
描述
文档
驱动名称
缩主打印队列
任务ID
任务状态
通知者
所有者
已经打印页数
参数
打印处理器
优先级
文件大小
状态
状态Mask
发送时间?
总页数
贝隆 2012-03-05
  • 打赏
  • 举报
回复
按字面意思翻译过来,基本不差
东方之珠 2012-03-05
  • 打赏
  • 举报
回复
你看那变量名称就知道什么意思了。
比如:第一个是标题,第二个是数据类型,第三个是描述,。。。。。。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧