怎样取得打印机的当前打印作业数目
即是还有几份打印作业未打印
用什么API啊?
即是还有几份打印作业未打印
用什么API啊?
解决方案 »
- 取网页源文件中的指定内容,正则表达式如何写
- 这里很热闹?
- 求返回指定文件夹路径的函数
- 高分求教:如何通过scrollbar来控制Picture的显示区域?
- 如何打开文本,然后清空内容,然后写一些字符串进去呢
- 我的FORM为什么这个用户不能用?控件问题?(内详)
- 在数据库输出成word文档时,如何在同一页中建立两个独立的表格!?
- 请教:我在vb中调用SQL SERVER的存储过程,存储过程中有RETURN(0)这一句,在VB中如何得到这个 0 ?
- 还是打包问题,烦死我了:(
- progressbar的背景窗体为什么是透明?
- 关机的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