Access OutputTo acOutputReport打印额外页面

我在Access中有一个报告，我们希望根据组ID过滤器分割并导出到.rtf。分割工作，但在每个.rtf文件中，我在页尾部分获得了一个额外的页面，但没有详细信息或组页脚。Access OutputTo acOutputReport打印额外页面

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

我的边距是顶部，左侧，右侧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并得到相同的东西，页眉重复没有详细信息或页脚部分打印。

来源

2010-10-13 Beth

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

来源

2010-10-13 19:17:52 Beth

Access OutputTo acOutputReport打印额外页面

回答

相关问题