我已经在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
acViewNormal
表示为报告打印,这是默认视图。
使用acViewReport
(报告视图(或acViewPreview
(打印预览(不打印报告。