Я создал отчет в 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