Cancel Printing still Prints

I made a program that prints a "report form"

this is the code im using

VB Code:

On Error GoTo prolem
  With CommonDialog1
  .ShowPrinter
  .CancelError = True
  NumCopies = .Copies
End With
  For i = 1 To NumCopies
    Me.PrintForm    ' Prints the form using the print dialog info
  Next i
  Exit Sub
prolem:
Exit Sub

When the user clicks cancel it still prints !!!!
how can i ammend this

Thanks all
Sam Lad

Swap the ".ShowPrinter" and ".CancelError = True" lines ;)

the work is done (and thus the error occurs) in the ShowPrinter method, so if CancelError isn't set before then, it wont give an error.

You can also use this

GoTo drain
' =================
'
' Here on error trap of [Cancel], pass falsity back
'
trapped:
ArmPrinter = False
Resume drain
' = = = = = = No fallthru
'
drain: