如何检查打印队列中是否还有打印的任务.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 20 行

下 面 是 一 个 简 单 的 例 子 ： 
    Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) 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 Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long 
    Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long 
     
    Private Sub Command1_Click() 
     Dim hPrinter As Long 
     Dim dwNeeded, dwReturned As Long 
     Dim b(1000) As Byte 
     
     If OpenPrinter("Canon Bubble-Jet BJ-10e", hPrinter, ByVal 0&) = 0 Then 
     Exit Sub 
     End If 
     
     EnumJobs hPrinter, 0, &HFFFFFFFF, 1, b(0), 1000, dwNeeded, _ 
     dwReturned 
     MsgBox "有 " & dwReturned & "个 打 印 任 务 ！ " 
     ClosePrinter hPrinter 
    End Sub 
<END>