Cancel print

I use the following code to print an MSChart


private Sub cmdPrint_Click()

on error GoTo Printer_Error

CommonDialog1.ShowPrinter

MSChart1.EditCopy
frmGraficarPorCaso.Picture1.Picture = Clipboard.GetData()
Printer.print " "
Printer.PaintPicture frmGraph.Picture1.Picture, _
0, 0, Printer.Width - 1, Printer.Height - 1
Printer.EndDoc

Exit Sub

Printer_Error:
MsgBox "Printer error." & Chr(13) & Chr(10) & _
Chr(13) & Chr(10) & Err.Description, vbCritical
End Sub




but whenever I press Cancel on the common dialog the chart prints anyway. What do i need to do to stop this?

Thanks,

Andrew

There is nothing wrong with your code, Andrew, but you must set:


CmDiag1.CancelError = true



for the CommonDialog to tell you the user has pressed cancel.

Regards,
psiclone