Excel VBA：在单元格中打印 x 个副本，每个副本的数量都在增加答案

【问题标题】：Excel VBA: Printing x copies each with an increasing number in a cellExcel VBA：在单元格中打印 x 个副本，每个副本的数量都在增加
【发布时间】：2011-10-05 00:43:06
【问题描述】：

是否可以：

每次打印一页时，在单元格中增加一个数字：例如打印 20 页，单元格中的数字为 1-20

或者如果那是不可能的：
运行一个For循环，每次增加数字，每次都提示打印机打印。

我知道这是一个非常基本的问题，但请耐心等待 - 这是我第一次在 Excel 宏上碰碰运气。

干杯

【问题讨论】：

标签： excel vba

【解决方案1】：

可以将此代码放入“ThisWorkbook”对象中，以在每次打印工作簿中的某些内容时增加一个单元格值。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 ThisWorkbook.Sheets("Sheet1").Range("A1").Value = _
  ThisWorkbook.Sheets("Sheet1").Range("A1").Value + 1
End Sub

【讨论】：

从 Excel 97 开始提供“BeforePrint”事件

【解决方案2】：

可以使用 VBA 宏来填充和打印工作表。对于 Excel 2010，使用开发人员功能区录制宏。它将在 Visual Basic 宏中记录您想要的步骤，然后您可以对其进行编辑。您可以更改宏以使用 For 循环，每次打印前更改工作表。

【讨论】：