部分源码:

定义全局变量：

 

打印预览：

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