在开发平台自动生成窗体上单击“打印”后出错

窗体打印代码如下：原因你对应的报表不存在，或运行代码不正确所至，如红色部分修改即可解决！

Public Sub btnPrint_Click()
    On Error GoTo ErrorHandler
    Dim strWhere As String

    strWhere = mclsQuery.WhereSQL
    DoCmd.OpenReport "rpt气象记录", , , strWhere
'    PrintReport "rpt气象记录", strWhere

ExitHere:
    Exit Sub

ErrorHandler:
    Select Case Err.Number
    Case errOpenActionWasCanceled, errOperationCanceledByUser
    Case Else
        RDPErrorHandler Me.Name & ": Sub btnPrint_Click()"
    End Select
    Resume ExitHere
End Sub