☰

每次打印时都会更改一个数字

tag-icon • tag-icon microsoft-excel printing
每次打印时都会更改一个数字

我有一张用作发票的 Excel 表。

我想打印100页，并且希望发票号码从1变为100，这样每张纸都有不同的发票号码。

我怎样才能做到这一点？

答案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

答案2

我会使用宏来执行此操作，因为似乎没有简单的内置方法来执行此操作。宏的概要非常简单。类似这样的性质：

  1. 提示份数和打印机名称
  2. 将发票编号单元格设置为 0
  3. 循环复制份数
    1. 增加发票单元格号码
    2. 将文档打印到打印机名称

编辑

这一页有一个适用于 Word 的示例，因此您可以将其改编为 Excel。 这一页有一个粗略的 excel 示例

相关内容