使用VBA打印用户表单

Posted 2021-04-19

我正在尝试打印我的用户表单。

码：

Forms("frm_manager_stats_NEW").Printer.Orientation = acPRORLandscape
DoCmd.PrintOut , 1, 1, acLow, 1, False

我也试过这些代码行：

DoCmd.PrintOut acPrintAll

和

DoCmd.PrintOut

错误：当我按下命令按钮运行代码访问调试并给我选择关闭或调试，无论我按下应用程序然后关闭。

怎么了？

答案

我认为你必须首先在打印预览模式下打开你的表格，然后打印出来（就像我在我的一个项目中完成的那样）。

请执行以下操作：

DoCmd.OpenForm "YourUserFormName", acPreview
If Screen.ActiveForm.Name = "YourUserFormName" Then
DoCmd.PrintOut
End If

尝试这个，希望它对你有用，就像它对我有用。