每次列印時變更數字

Question

我有一張 Excel 工作表用作發票。

我想列印 100 頁，並且希望發票號碼從 1 更改為 100，這樣每張紙都有不同的發票號碼。

我怎樣才能做到這一點？

Answer 1

你需要一個宏來做到這一點。我找到了以下巨集並對其進行了一些更改。試試看是否能正常運作：

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

Answer 2

我會使用巨集來執行此操作，因為似乎沒有一種簡單的內建方法可以執行此操作。宏的輪廓非常簡單。這種性質的東西：

1. 提示輸入份數和印表機名稱
2. 將發票編號儲存格設定為 0
3. 循環取得副本數
   1. 增加發票單元編號
   2. 將文件列印到印表機名稱

編輯

這一頁有一個針對 Word 的範例，因此您可以將其改編為 excel。 這一頁有一個 excel 的粗略例子