7,765
社区成员
发帖
与我相关
我的任务
分享
lngResult = OpenPrinter(sPrintName1, hPrinter, pDefault)
' Call PrinterProperties(hwnd, hPrinter)
lngResult = EnumJobs(hPrinter, 0, 127, 1, ByVal 0&, 0, lngJobsNeeded, lngJobsReturned)
If lngJobsNeeded > 0 Then
ReDim byteJobsBuffer(lngJobsNeeded - 1)
lngResult = EnumJobs(hPrinter, 0, 127, 1, byteJobsBuffer(0), lngJobsNeeded, lngJobsNeeded, lngJobsReturned)
If lngJobsReturned > 0 Then
lngjobscount = lngJobsReturned
Else
' number of jobs returned = 0 (no jobs)
lngjobscount = 0
End If
End If