Cancel Printing still Prints

[señorbadger]

I made a program that prints a "report form"

this is the code im using

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