VBA Excel Application.CommandBars.ExecuteMso（ "PrintPreviewAndPrint"）コピー数？

Question

私は、複数の単語文書を印刷するための短いExcel vba関数に書いています。印刷を確認するために「舞台裏」を印刷し、プレビューダイアログを表示するように

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

、およびユーザーにプロンプ​​トを表示：

私はこのコードを使用する必要があります。

しかし、コピーの数は関数で設定し、可能であればユーザーが変更することはできません。

ウェブを検索するのに役立つものは何も見つかりませんでした。それを行うことが可能かどうか誰かが知っていますか？

Answer 1

私はMS Word 2010を実行しています。

Backstageビューでは、SendKeysを使用して「alt」、「P」、「N」、「2」を入力してコピー数を設定できます。例：

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

これは、コピー数を2に設定します。ただし、コピー数は変更できます。