Question

我在Access中有一个报告，我们希望根据组ID过滤器将其拆分并导出到.rtf。拆分工作，但在每个.rtf文件中，我在页面标题部分的末尾有一个额外的页面，但没有细节或组页脚。

我的报告隐藏了报告标题部分，页面标题占据了页面的1/2，隐藏了groupID标题，每行的详细信息，另一个组页脚，组ID页脚以及隐藏的页面和报告页脚。

我的边距是顶部，左边，右边0.5英寸，底部0.25英寸。

如果我从设计模式打印预览或导出到.rtf，则没有额外的页面。在VBA代码中做同样的事情给了我不同的结果。

以下是一些VBA代码：

' Now loop through list of labeler values and create a query for each labeler
' so that the data can be exported
Do While Not rsRptGroup.EOF
    sRptGroup = rsRptGroup("reportGroupID")
    'sSQL = "SELECT * FROM qry_export_cms WHERE reportGroupID = '" & sRptGroup & "'"
    ' exclude reportGroupID column
    sSQL = "SELECT state, labeler, product, packageSize, period, name, Units, prescriptions, totalReimburse, medicaidReimb, nonmedicaidReimb "
    sSQL = sSQL & "FROM qry_export_cms WHERE reportGroupID = '" & sRptGroup & "'"
    qdf.sql = sSQL

    sSQL = "SELECT * FROM qry_export_cms_detail WHERE reportGroupID = '" & sRptGroup & "'"
    qdfDetail.sql = sSQL

    On Error Resume Next        ' if doesn't already exist
    Kill sPath & "\rtf\" & sPrefix & sRptGroup & ".rtf"      ' if already created
    On Error GoTo 0         ' resume error trapping

    DoCmd.OpenReport "rpt_summary", acViewPreview, , "reportGroupID='" & sRptGroup & "'", acHidden
    DoCmd.OutputTo acOutputReport, "rpt_summary", acFormatRTF, sPath & "\rtf\" & sPrefix & sRptGroup & ".rtf", False, , , acExportQualityPrint
    DoCmd.Close acReport, "rpt_summary"

    rsRptGroup.MoveNext
Loop

任何想法??

我尝试导出到.txt和.pdf并得到相同的东西，页面标题重复，没有打印细节或页脚部分。

Answer 1

我删除了报告页眉和页脚部分并修复了它。

访问OutputTo acOutputReport打印额外页面

1 个答案: