Диалог печати на нужное кол-во листов VBA

[nux]

Доброго.

оговорюсь сразу, с VBA дел никогда не имела, поэтому прошу помощи, как для совсем ничего непонимающего.

Нужно в экселе (да и в Word потом) открыть диалог печати с уже проставленным количеством копий документа. Как передать?
Макрос смогла записать только для немедленной посылки на печать. Хотелось бы сначала открыть диалог и решение оставить для пользователя.

Помогите, плз.

[pivas]

Может, пригодится

Sub МакросПечати()

    n = InputBox("Сколько экземпляров вывести на печать", "Вывод на печать", 5)
    If n = Cancel Or n = 0 Or n = " " Then GoTo 10
    ActiveWindow.SelectedSheets.PrintOut Copies:=n
   
10

End Sub

[nux]

Спасибо)
Просто отлично)