Excel 请教怎么实现EXCEL在打印时自动生成单据编号

2024-12-03 19:28:08

推荐回答（3个）

回答1：

查看代码，复制以下代码到窗口（请根据说明修改参数）
Sub m()
For i = 1 To 177
ActiveSheet.PrintOut copies:=1
Cells(2, 2) = Cells(2, 2) + 1
Next
End Sub

代码详解：
1.Sub m()——这是宏名，无需理会；
2.For i = 1 To 177——这是控制打印次数，后面的177就是打印的页数，可以通过更改这个数值，来控制打印多少页；
3.ActiveSheet.PrintOut copies:=1——这是打印当前页的代码，无需理会；
4.Cells(2, 2) = Cells(2, 2) + i——这里的Cells(2,2)就是单元格B2，其中第一个2是行数，第二个2是列数，更改这两个数值，就可以控制让哪个单元格的数值变动；
5.Next——继续循环，无需理会；
6.End Sub——结束宏，无需理会。
（Cells(2, 2)也就是B2单元格，改为你要变的单元格，就是单据号单元格）

回答2：

使用页眉和页脚的办法就可以，自己可以先试一下

回答3：

可以通过VBA来实