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打印額外頁面

回答

相關問題