ms-access - 通过 VBA 打印多个副本时，MS Access 报告打开导航窗格

Question

我有用于打印标签的报告，一切正常，除了打印报告时，导航窗格打开。我已将数据库选项设置为不显示导航窗格，除此特定报告外，它仍处于隐藏状态。这是我用来打印报告的 VBA：

Dim intCopies as integer
intCopies = Me.txtCopies
DoCmd.SelectObject acReport, "rptShippingLabelTmo", True
DoCmd.PrintOut , , , , intCopies

该报告设置为仅打印到特定打印机，我需要它来打印多份副本，而无需使用任何类型的对话框。如何在不打开导航窗格的情况下打印报告？

Answer 1

第三个参数InNavigationPane指示是否应在“数据库”窗口（Access 版本 <= 2003）或导航窗格（Access >= 2007）中选择对象。用于False告诉 Access不要在导航窗格中选择该报表，然后它不应显示导航窗格。

DoCmd.SelectObject acReport, "rptShippingLabelTmo", False

但是，如果报告尚未打开，请使用OpenReport代替SelectObject，然后再使用Close它。

DoCmd.OpenReport "rptShippingLabelTmo", acViewPreview
'DoCmd.PrintOut , , , , intCopies
DoCmd.PrintOut Copies:=intCopies
DoCmd.Close acReport, "rptShippingLabelTmo"

Answer 2

您可以每次都隐藏窗格：

DoCmd.SelectObject acReport, "rptShippingLabelTmo", True
DoCmd.RunCommand acCmdWindowHide
DoCmd.PrintOut , , , , intCopies