【Access示例】报表多模板打印预览/打印

时　间:2016-06-19 10:09:52
作　者:杨雪   ID：42182  城市：南京
摘　要:很多人问报表多模板打印预览/打印 怎么做，看看下面的文章吧。
正　文:

部分源码:

定义全局变量：

打印预览：

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

    g_strWhere = mclsQuery.WhereSQL
    DoCmd.OpenForm "frmRptSelect"

ExitHere:
    Exit Sub

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

选择模板窗体确定按钮代码：

Private Sub cmdOK_Click()
Select Case Me.sRpt
    Case 1
        '预览报表 - 按报销类别
        DoCmd.OpenReport "rptBxmx", acViewPreview, , g_strWhere
    Case 2
        '预览报表 - 按员工姓名
        DoCmd.OpenReport "rptBxmxYg", acViewPreview, , g_strWhere
    End Select
DoCmd.Close acForm, "frmRptSelect"

End Sub

报表制作详细教程：

http://www.accessoft.com/article-show.asp?id=10889

http://www.accessoft.com/article-show.asp?id=10892

http://www.accessoft.com/article-show.asp?id=10893