VBA, MS Access MS Access в примерах

Экспорт Отчёта в PDF

'Сохранение отчета в PDF
Dim sPath$
    sPath = "D:\temp\Report_01.pdf"
    DoCmd.OpenReport "DataTest", acViewPreview, , "RecIDAuto=1", acHidden
    DoCmd.OutputTo acOutputReport, "DataTest", acFormatPDF, sPath, False
    DoCmd.Close acReport, "DataTest"


Или так:

Dim sReportName$, s$
'Собственно Экспорт в PDF ...
    DoCmd.OutputTo acOutputReport, sReportName, acFormatPDF, sFilePath, False
    MsgBox "PDF Экспортирован: " & vbNewLine & sFilePath, vbInformation, "Report Exported as PDF"

Назад ToTop
L.E. 05.02.2021
Рейтинг@Mail.ru