怎样取得打印机的当前打印作业数目
即是还有几份打印作业未打印
用什么API啊?
即是还有几份打印作业未打印
用什么API啊?
解决方案 »
- 现在的qq密码框都有那些属性,能不能去掉的?
- 关于EXCEL如何导入数据到ORACLE中
- 如何保证我的VB程序只能开启一个实例
- 一对多数据库设计
- 谁能帮我看看这个MRP计算,大概需要多少时间?ERP高手帮忙!
- 请问VB里有树形目录的控件可以用吗?
- ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆| DrawDIBDraw函数怎么用?
- 【vb+sql】选中datagrid的某一行,使其第一个单元格的内容显示在text文本框中?
- 关于inputbox的问题,当日结贴
- 各位,我很急,怎样在vb中自画控件,给一个说明,曷好来一个Commandbutton的示例!不胜涕零!
- 关机的API函数是什么?请大虾指点!
- 如何在我的FORM窗体上加一个“?”按钮?
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
Private Sub Form_Load() Dim hPrinter As Long, lNeeded As Long, lReturned As Long
Dim lJobCount As Long
OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
If lNeeded > 0 Then
ReDim byteJobsBuffer(lNeeded - 1) As Byte
EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned
If lReturned > 0 Then
lJobCount = lReturned
Else
lJobCount = 0
End If
Else
lJobCount = 0
End If
ClosePrinter hPrinter
MsgBox "Jobs in printer queue: " + CStr(lJobCount), vbInformation
End Sub