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

VB技巧问答10000例 VB技巧问答10000例

下 面 是 一 个 简 单 的 例 子 ： 
    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>