关于打印的问题 与使用commondialog使用中的取消操作过程的问题

Question

1关于打印的问题每次打印的时候只是发到打印机，不打印是怎么回事？代码 在下面
   CrystalReport1.DataFiles(0) = App.Path & "\db1.mdb"
    CrystalReport1.ReportFileName = App.Path & "\初审表pt.rpt"
    CrystalReport1.Destination = crptToPrinter
    CrystalReport1.Action = 1
2 关于使用commondialog中使用到的取消操作的时候总是跳出出错的提示，使用过了一个on error goto errorhandler，但是还是没有用！请帮忙！
   '------------------------------------------------
L:
 On Error GoTo ErrHandler
 
  CommD.Filter = "数据库文件(*.dbf)|*.dbf"
  CommD.filename = Right(Lbl1.Caption, 3) & ".dbf"
  CommD.CancelError = True
  CommD.DialogTitle = "指定要保存的路径"
  CommD.ShowSave
  filename = CommD.filename
  ReStr = Dir(filename)
  If ReStr <> "" Then
     T = MsgBox("该文件已存在,要覆盖吗？", vbQuestion + vbOKCancel, "提示")
     If T <> 6 Then
       GoTo L
     End If
     Kill filename
  End If
'------------------------------------------------
ErrHandler:
            '用户按“取消”按钮。
            Exit Sub

Answer 1

我自己先顶一下 ，谁能帮帮忙啊？

Answer 2

我自己先顶一下 ，谁能帮帮忙啊？