Binaryworld - How to Cancel Printing job sent to Printer. ... [ VB -> Printing ]

To learn more about Printing Using API click on the folloing link

http://msdn.microsoft.com/library/en-us/gdi/prntspol_0r1j.asp

Click here to copy the following block

'Instead of just calling CancelPrinting directly, try using this routine:

Function CancelPrinting() As Integer
  '
  ' subroutine to cancel a document that has been sent
  ' to print manager.
  ' the AbortDoc API function is used to provide the
  ' cancel function.
  ' One problem with this API function is that it causes
  ' a run-time error the next time the Printer object is
  ' referenced. So, to get around this, a Printer.EndDoc
  ' statement is issued with an Error-Handler that ignores
  ' this error

  Dim i As Integer
  On Error GoTo AP_PrintError

  i = AbortDoc(Printer.hDC) ' abort the print manager output for this job
  If i > 0 Then
    CancelPrinting = True
  Else
    CancelPrinting = False
  End If

  Printer.EndDoc 'issue a statement to get around the API problem

  Exit Function
AP_PrintError:
  Exit Function
End Function