判断打印机是否还有任务队列的方法~

Private Structure PRINTER_DEFAULTS
  Dim pDatatype As String
  Dim pDevMode As Integer
  Dim DesiredAccess As Integer
End Structure

Private Const PRINTER_ACCESS_ADMINISTER As Integer = &H4
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, ByRef phPrinter As Integer, ByRef pDefault As PRINTER_DEFAULTS) As Integer

Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Integer, ByVal FirstJob As Integer, ByVal NoJobs As Integer, ByVal Level As Integer, ByRef pJob As Byte, ByVal cdBuf As Integer, ByRef pcbNeeded As Integer, ByRef pcReturned As Integer) As Integer

Private Structure SYSTEMTIME
  Dim wYear As Short
  Dim wMonth As Short
  Dim wDayOfWeek As Short
  Dim wDay As Short
  Dim wHour As Short
  Dim wMinute As Short
  Dim wSecond As Short
  Dim wMilliseconds As Short
End Structure

Private Structure JOB_INFO_1