如何检查打印机有没有将当前任务打印完（在线等待）
即中途卡纸，怎样判断。 问题点数：0、回复次数：6Top
1 楼bydisplay（时光）回复于 2003-06-04 12:10:50 得分 0
去http://www.china-askpro.com/msg9/qa81.shtml看看Top
2 楼AechoJohn（江江）回复于 2003-06-04 12:24:56 得分 0
楼上的兄弟，我看了一下，里面说的比较详细！Top
3 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-06-04 12:31:00 得分 0
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
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 SubTop
4 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-06-04 12:31:12 得分 0
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q160/1/29.asp&NoWebContent=1Top
5 楼2003kingbear（）回复于 2003-06-04 13:31:43 得分 0
楼上的能否解释一下前面的语句冒昧的再问一下，如何在程序中判断某项打印任务有没有完成，可以用指定的打印机。。。。。。。
谢谢！Top
6 楼alicky（周松）回复于 2003-06-17 19:35:54 得分 0
upTop
