Access 2013: отправка текущей записи формы только в PDF-файл с помощью отчета

У меня есть форма, в которой пользователи вводят все свои данные. Существует кнопка «Сохранить», которая сохраняет запись и оставляет форму открытой и активной. Прежде чем закрыть форму, мне нужно взять эту вновь сохраненную запись и вывести соответствующий отчет в файл PDF. Моя проблема сейчас заключается в том, что вывод в PFD отправляет все записи в таблице, а не только запись в форме. Вот мой код на данный момент.

Private Sub cmdSave_Click()

    Dim outl As Outlook.Application
    Dim mi As Outlook.MailItem
    Dim strWhere As String

    Cause = "SaveButton"
    DoCmd.RunCommand acCmdSaveRecord
    'Save the Record
    Me.btnClose.SetFocus

    If Me.DateOfVisit <> "" Then
        Me.RepStatus = "Report Saved!"
        Me.btnNewReport.Visible = True

    'Now, print the report to a PDF File
    DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF,"C:\ReportTest.pdf", False

    End If

End Sub

В качестве примечания требуется, чтобы пользователи не видели, как отчет всплывает на экране, а затем быстро исчезает.

Спасибо за любую помощь.


ms-access-2013
person rtemen    schedule 31.01.2017    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Кажется, я наконец-то разобрался. Я добавил следующие строки, и теперь он работает. Оказывается, OutputTo не может пройти ни по какому критерию поиска. Итак, я открыл отчет в скрытом режиме, чтобы пользователи ничего не видели, а затем использовал OutputTo, чтобы отправить его в PDF.

'Now, print the report to a PDF File

DoCmd.OpenReport "rptReports", acViewReport, , "[ReportID] = " & [ReportID], acHidden
DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF, "C:\TG QUOTE SYSTEM\Meeting Reports\ReportTest.pdf", False
DoCmd.Close acReport, "rptReports"

Конец, если

Спасибо всем.

person rtemen    schedule 31.01.2017