Как увеличить значение в ячейке при печати нескольких копий Excel?

Question

[Kozlov]

Есть ячейка B1 в которой хратися нумерация документа
Сделал через событие BeforePrint, но оно не учитывает копии, а мне нужно если я отправляю на печать 10 копий то на каждой уникальный номер.

VBA

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ThisWorkbook.Sheets(1).Range("B1") = ThisWorkbook.Sheets(1).Range("B1") + 1
End Sub

Можно ли отловить кол-во копий в окне печати и циклом пройтись уже в событии BeforePrint?

Answer 1

[Kozlov]

Разобрался, правда без окна печати.
1. Создаем макрос
2. Рисуем фигуру, в свойствах убираем отображать при печати
3. Вешаем на нее макрос

Код макроса

Sub PrintMe()
    Dim Count As Integer
    Count = InputBox("Сколько печатаем?")
    i = 1
    Application.Dialogs(xlDialogPrinterSetup).Show
    Do While i <= Count
        ActiveSheet.PrintOut
        ThisWorkbook.Sheets(1).Range("B1") = ThisWorkbook.Sheets(1).Range("B1") + 1
        i = i + 1
    Loop
End Sub