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

查看代码，复制以下代码到窗口（请根据说明修改参数）

Sub

m()

For

i

=

1

To

177

ActiveSheetPrintOut

copies:=1

Cells(2,

2)

=

Cells(2,

2)

+

1

Next

End

Sub

代码详解：

1Sub

m()——这是宏名，无需理会；

2For

i

=

1

To

177——这是控制打印次数，后面的177就是打印的页数，可以通过更改这个数值，来控制打印多少页；

3ActiveSheetPrintOut

copies:=1——这是打印当前页的代码，无需理会；

4Cells(2,

2)

=

Cells(2,

2)

+

i——这里的Cells(2,2)就是单元格B2，其中第一个2是行数，第二个2是列数，更改这两个数值，就可以控制让哪个单元格的数值变动；

5Next——继续循环，无需理会；

6End

Sub——结束宏，无需理会。

（Cells(2,

2)也就是B2单元格，改为你要变的单元格，就是单据号单元格）

可以使用宏

1、选择箱号序号单元格，按alt+f11，d出如图窗口

2、双击sheet1，或者点视图--插入模块

3、输入代码：

Sub PR()

For

I=1

To

500

ActiveSheetPrintOut

[B8] = [B8] + 1

NEXT

End Sub

4、按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”

你试下代码不知道对不对

用VBA来实现。

编辑好表格，在最下面空一行（可缩小页脚高度），记住要显示打印次数的单元格编号，按Alt+F11打开VBA编辑器，双击表名，复制粘贴下面的代码，将代码中的E24改成自己的单元格编号，运行宏，输入打印份数进行打印。

Sub

宏1()

a

=

InputBox("数量",

,

1)

For

i

=

1

To

a

Range("E24")

=

"第"

&

i

&

"份"

ActiveWindowSelectedSheetsPrintOut

Copies:=1

Next

End

Sub

以上就是关于Excel 请教怎么实现EXCEL在打印时自动生成单据编号全部的内容，包括:Excel 请教怎么实现EXCEL在打印时自动生成单据编号、excel里怎么设置可以按箱号自动按序号打印出来不用一箱一箱去修改打印、一张Excel表格，打印100张，怎么让打印出来的纸页脚自动出现序号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！