Изменение номера страницы в Excel при каждой печати

Question

Я хочу добавить дополнительное поле ввода для печати диапазона.

Я изменил код из этого поста, чтобы включить другое поле ввода для определения диапазона номеров и для печати предварительного просмотра вместо печати, если это возможно.

Итак, код спрашивает:

• Сколько копий вы хотите? (например, 10)
• С какого номера вы хотите начать? (например, 50)

Теперь Excel печатает 10 копий с номерами 50 -60

Sub PrintCopies_ActiveSheet()

    Dim CopiesCount As Long 
    Dim CopyNumber As Long 
    Dim StartNumber As Integer 

    CopiesCount = Application.InputBox("How many copies?", Type:=1)
    StartNumber = Application.InputBox("Number to start from", Type:=1) 

    For CopyNumber = StartNumber To CopiesCount 
        With ActiveSheet
            .Range("C1") .Value = CopyNumber 
            .PrintPreview
        End With 
    Next CopyNumber 

End Sub 

У меня вопрос, как изменить число в Excel каждый раз, когда я печатаю (и для диапазона)