帮忙看看

Question

Private Sub Command1_Click()
    Dim result As Boolean
    result = False
     Dim hPrinter As Long
     Dim dwNeeded, dwReturned As Long
     Dim b(1000) As Byte
     
     If OpenPrinter("hp LaserJet 1010", hPrinter, ByVal 0&) = 0 Then
     Exit Sub
     End If
     
     EnumJobs hPrinter, 0, &HFFFFFFFF, 1, b(0), 1000, dwNeeded, _
     dwReturned
     MsgBox "有" & dwReturned & "个打印任务！"
    
   
     If Not SetPrinter(hPrinter, 0, ByVal 0&, PRINTER_CONTROL_PAUSE) Then
      
      MsgBox "失败"
      Else
      result = True
      
      End If      
      ClosePrinter hPrinterend sub为什么老是用setprinter控制打印机暂停---失败？