怎么设置excel同一张打印连续多页

2025-01-02 01:35:14

推荐回答（2个）

回答1：

确保默认打印机正确。
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub
test()
Dim
i
As
Integer
For
i
=
1
To
8
'打印8份，页码自动增加；请按需修改
ActiveSheet.PageSetup.RightFooter
=
i
ActiveSheet.PrintOut
Next
i
End
Sub
在此界面下直接按F5运行此宏，满足你要求。

回答2：

通过宏来打印
做一个宏吧,代码如下:
sub
按钮1_单击()

range("a1").select
'[a1]是要变单元格位置

activecell.formular1c1
=
[a1]
+
1
'1是看你要加多少,[a1]是单元格位置

activewindow.selectedsheets.printout
copies:=1,
collate:=true
'1是打印1份
end
sub
参考资料：
http://zhidao.baidu.com/question/77669588.html?si=2

我答过了