6

当我使用 PrintOut 方法将工作表对象打印到打印机时，即使我设置了 DisplayAlerts = False，也会显示“打印”对话框（显示文件名、目标打印机、打印的页面和取消按钮）。下面的代码在 Excel 宏中工作，但如果我在 VB 或 VB.Net 应用程序中使用此代码（使用 Excel 对象所需的参考更改），也会发生同样的事情。

Public Sub TestPrint()
Dim vSheet As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set vSheet = ActiveSheet
    vSheet.PrintOut Preview:=False

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

编辑：下面的答案更清楚地说明了这一点（它可能是 Windows 对话框而不是 Excel 对话框），但没有回答我的问题。有谁知道如何防止它被显示？

编辑：谢谢你的额外研究，凯文。看起来很像这就是我所需要的。只是不确定我想盲目地接受这样的 API 代码。是否还有其他人对这些 API 调用有任何了解，并且他们正在做作者声称的事情？

4

3 回答 3

2

如果您不想显示打印对话框，则只需进行如下宏测试；它不会显示任何打印对话框，并且会检测到默认打印机并立即打印。

sub  test()

 activesheet.printout preview:= false

end sub

运行此宏，它将打印当前活动的工作表而不显示打印对话框。

于 2012-10-04T16:17:38.587 回答
1

当您说“打印”对话框时，我假设您的意思是“现在正在打印 xxx”对话框而不是标准打印对话框（选择打印机、份数等）。以您上面的示例并尝试一下，这就是我看到的行为-“正在打印...”短暂显示然后自动关闭。

您尝试控制的内容可能与 Excel 无关，而是与 Windows 级别的行为相关联。如果它是可控的，您需要 a) 禁用它，b) 执行打印，c) 重新启用。如果您的代码失败，则存在无法为其他应用程序重新启用的风险。

编辑：试试这个解决方案：How do you prevent printing dialog when using Excel PrintOut method。它似乎准确地描述了你所追求的。

于 2008-09-16T06:09:57.370 回答
1

Kevin Haines 链接的文章中的 API 调用隐藏了打印对话框，如下所示：

  1. 获取打印对话窗口的句柄。
  2. 向窗口发送消息，告诉它不要重绘
  3. 使窗口无效，这会强制重绘永远不会发生
  4. 告诉 Windows 重新绘制窗口，这会导致它消失。

说得委婉些，过于简单化了。

API 调用是安全的，但如果您的应用程序失败，您可能需要确保将打印对话框的屏幕更新设置为 True。

于 2008-09-22T14:17:52.660 回答