请问有关打印的一个简单问题?

Question

我的部分程序是: 
With CommonDialog1
 '       .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        .ShowPrinter
  End With
        Printer.PaintPicture Picture1.Image, 0, 0
        Printer.EndDoc
但弹出对话框时无论点击"确定"还是"取消"好像都打印程序.
如果加上.CancelError = True就不能取消了.
  怎么能点击取消时,不打印图片

Answer 1

'CancelError只是在取消时生成一个错误，必须用on error 处理
on error goto 100
With CommonDialog1
 '       .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        .ShowPrinter
  End With
        Printer.PaintPicture Picture1.Image, 0, 0
        Printer.EndDoc
100:
   ......