查看代码，复制以下代码到窗口（请根据说明修改参数）
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单元格，改为你要变的单元格，就是单据号单元格）
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024