Excel VBA：在单元格中打印x每个数字越来越多的副本

是否有可能：

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

  或者如果这是不可能的：

• 运行一个For循环，每增加一个数字，每次提示打印机打印。

我知道这是一个非常基本的问题，但忍耐我 – 这是我第一次在Excelmacros中尝试我的运气。

干杯

Answer 1

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

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

Answer 2

可以使用VBAmacros来填充和打印工作表。 对于Excel 2010，使用开发人员function区loggingmacros。 它将在Visual Basicmacros中logging所需的步骤，然后可以编辑该macros。 您可以将macros更改为使用For循环，每次打印前更改工作表。