如何停止DoCmd.OutputTo从打印文件?

时间:2019-05-27 07:30:43

标签: vba ms-access access-vba ms-access-reports

我已经在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 个答案:

答案 0 :(得分:1)

acViewNormal表示将其打印为报告,这是默认视图。

使用acViewReport(报告视图)或acViewPreview(打印预览)不打印报告。