一个蹊跷的报表打印问题

遇到了一个蹊跷的打印问题（access2010）：

窗体名称frmAdd，上有一个打印按钮cmdPr，单击调出报表rptPrint，然后进行打印。但奇怪的是，点access的打印后，竟然打印出窗体frmAdd，而没有打印报表rptPrint。相关代码如下:

frmAdd上cmdPr：

Private Sub cmdPr_Click()
 On Error Resume Next
    If rptbtnSave Then
       DoCmd.Minimize
        DoCmd.OpenReport "rptPrint", acViewPreview, , "employeeNO='" & Me.employeeNO & "'", , acWindowNormal
    Else
        MsgBox "请先录入并保存数据，然后才能打印。", vbInformation, "提示"
    End If
End Sub

rptPrint打开代码：

Private Sub Report_Open(Cancel As Integer)

DoCmd.Maximize
End Sub

这个问题时而出现，时而没有。