每次打印时都会更改 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 中的数字（以及某个范围）