Как остановить DoCmd.OutputTo от печати файла? - PullRequest
0 голосов
/ 27 мая 2019

Я создал отчет в MS Access и команду on_click, чтобы сохранить упомянутый отчет в формате PDF на рабочем столе пользователя.

Проблема в том, что после выполнения этой команды не только сохраняется PDF-версия, но и печатается ее.

Я в замешательстве, какая часть моего кода дает команду напечатать все это?

Private Sub Oldsys_atask_isorei_Click()
    'file name
    ReportName = "Report_" & Format(Now, "_yyyy-mm-dd") & ".pdf"
    'path to Users desktop
    DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/"

    'opens report in background (without it OutputTo did not seemed to work)
    DoCmd.OpenReport "rprtOldsys_isorei", acViewNormal, , , acHidden
    'saves report in PDF on Users desktop
    DoCmd.OutputTo acOutputReport, "rprtOldsys_isorei", acFormatPDF, DTAddress & ReportName, True
    'closes opened report
    DoCmd.Close acReport, "rprtOldsys_isorei", acSaveNo
End Sub

1 Ответ

1 голос
/ 27 мая 2019

acViewNormal означает распечатать для отчета, это представление по умолчанию.

Либо используйте acViewReport (просмотр отчета), либо acViewPreview (предварительный просмотр), чтобы не печатать отчет.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...