VBA Excel Application.CommandBars.ExecuteMso（＆＃34; PrintPreviewAndPrint＆＃34;）份数？

Question

我正在写一个简短的excel vba函数来打印多个word文档。

我需要使用此代码：

...
Set WordApp = CreateObject("Word.Application")   
Set wordObj = WordApp.documents.Open(file)
...
wordObj.Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

显示＆＃34; Backstage＆＃34;打印和预览对话框，并提示用户确认打印。

但是，副本的数量应由功能设置，如果可能，用户不能更改。

我无法找到有用的搜索网页。有人知道是否可以这样做？

Answer 1

我正在运行MS Word 2010。

进入Backstage视图后，我可以使用SendKeys键入＆＃34; alt＆＃34;，＆＃34; P＆＃34;，＆＃34; N＆＃34;，＆＃34; 2＆＃34;设置份数。例如：

...
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
SendKeys "%PN2", False

这会将份数设置为2.用户可以更改份数。