打印报表的函数

时　间:2019-02-06 09:31:16
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:一个打印报表的函数，将打印预览和直接打印设置为参数，供不同的地方调用。
正　文:

具体函数：

Public Function PrintReport(View As AcView)
    On Error GoTo ErrorHandler
    Dim strWhere As String

    If Me.sfrList.Form.CurrentRecord < 1 Then
        Exit Function
    End If
    '下面是条件
    strWhere = "[采购订单号]=" & SQLText(Me.sfrList![采购订单号])
    DoCmd.OpenReport "rpt采购订单", View, , strWhere

ExitHere:
    Exit Function

ErrorHandler:
    Select Case Err.Number
    Case errOpenActionWasCanceled, errOperationCanceledByUser
    Case Else
        MsgBoxEx Err.Description, vbCritical
    End Select
    Resume ExitHere
End Function

PrintReport acViewPreview

调用方法二：打印

PrintReport acViewNormal