Доступ к выходу для распечатки дополнительной страницы. - PullRequest
Новая
       3

Доступ к выходу для распечатки дополнительной страницы.

0 голосов
/ 13 октября 2010

У меня есть отчет в Access, который мы хотим разделить и экспортировать в .rtf на основе фильтра идентификатора группы. Разделение работает, но в каждом файле .rtf я получаю дополнительную страницу в конце с заголовком страницы, но без подробных или групповых нижних колонтитулов.

В моем отчете скрыт раздел заголовка отчета, заголовок страницы занимает 1/2 страницы, скрыт заголовок groupID, подробности каждой строки, другой нижний колонтитул группы, нижний колонтитул идентификатора группы, а также нижний колонтитул страницы и отчета.

Мои поля сверху, слева, справа 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 и получить то же самое, повторил заголовок страницы без распечатки деталей или нижнего колонтитула.

1 Ответ

1 голос
/ 13 октября 2010

Я удалил верхний и нижний колонтитулы отчета и исправил их.

...