![每次打印时都会更改 Excel 中的页码](https://linux22.com/image/1413396/%E6%AF%8F%E6%AC%A1%E6%89%93%E5%8D%B0%E6%97%B6%E9%83%BD%E4%BC%9A%E6%9B%B4%E6%94%B9%20Excel%20%E4%B8%AD%E7%9A%84%E9%A1%B5%E7%A0%81.png)
我想添加一个额外的输入框用于范围打印。
我改变了代码这个帖子包括另一个输入框来确定数字范围,并在可能的情况下进行打印预览而不是打印。
因此代码询问:
- 您想要多少份?(例如 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 中的数字(以及某个范围)