访问 OutputTo acOutputReport 打印额外页面答案

【问题标题】：Access OutputTo acOutputReport prints extra page访问 OutputTo acOutputReport 打印额外页面
【发布时间】：2010-10-13 18:11:01
【问题描述】：

我在 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 并得到相同的结果，页眉重复，没有打印细节或页脚部分。

【问题讨论】：

标签： ms-access vba

【解决方案1】：

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

【讨论】：