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

[si_the_geek]

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.

[compmanu]

You can also use this

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