Word - печать нескольких экземпляров - VB

Формулировка задачи:

Привет всем
Возникла маленькая проблемка, не могу решить. Помогите плиз.
Необходимо, чтобы при нажатии кнопки печать из Панели инструментов сразу печаталось 2 экземпляра сформированного отчета.
2 раза нажимать кнопку не подойдет. Идти через Файл-Печать... тоже.

Решение задачи: «Word - печать нескольких экземпляров»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">WithEvents</font> PrintButton <font color="blue">As</font> Office.CommandBarButton

<font color="blue">Private</font> <font color="blue">Sub</font> Document_Open()
    <font color="blue">Set</font> PrintButton = CommandBars.FindControl(ID:=<font color="darkblue"><b>2521</b></font>)
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> PrintButton_Click( _
  <font color="blue">ByVal</font> Ctrl <font color="blue">As</font> Office.CommandBarButton, _
  CancelDefault <font color="blue">As</font> <font color="blue">Boolean</font>)
    CancelDefault = True
    MsgBox <font color="teal">"Сейчас будет напечатано 2 копии."</font>
    Application.PrintOut Copies:=<font color="darkblue"><b>2</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        