Alterando o número da página no Excel cada vez que imprimo

Question

Eu quero adicionar uma caixa de entrada adicional para impressão em intervalos.

Alterei o código de esta postagem para incluir outra caixa de entrada para determinar o intervalo de numeração e para imprimir a visualização em vez de imprimir se possível.

Então o código pergunta:

• Quantas cópias você quer? (por exemplo, 10)
• Em qual número você deseja começar? (por exemplo, 50)

Agora o Excel imprime 10 cópias numeradas de 50 a 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 

A minha pergunta é, como alterar o número no Excel cada vez que imprimo (e para um intervalo)