Excel的VBA：打印X拷貝每個小區中的

Question

越來越多是否有可能或者：

• 每一個頁面已經被印刷時間的增加在細胞中的數：例如打印20頁有數字1到20的細胞

  ，或者如果這是不可能的：

• 運行for循環，每次增加次數和每次提示打印的打印機。

我知道這是一個非常基本的問題，但忍受我 - 這是我第一次在Excel宏中嘗試我的運氣。

Cheers

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

可以使用VBA宏來填充和打印工作表。對於Excel 2010，請使用開發人員功能區記錄宏。它會在Visual Basic宏中記錄所需的步驟，然後您可以編輯該宏。您可以將宏更改爲使用For循環，每次打印前都要更改工作表。