如何停止 DoCmd.OutputTo 打印文件?
How to stop DoCmd.OutputTo from printing file?
我在 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
(打印预览)不打印报表。
我在 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
(打印预览)不打印报表。