同时按Alt和
F11
进入宏界面,
点菜单
的插入,模块,粘贴如下代码:
Sub
test()
Dim
i
As
Byte
For
i
=
1
To
30
ActiveSheetPageSetupRightFooter
=
i
ActiveSheetPrintOut
Next
i
End
Sub
按F5运行此宏,完成。
电子表格只有一页的内容,需要打印多张且要打印页码(如1-50页),那么如何实现呢?可以通过设置来完成(如果有多张内容,当然可以插入页码即可)。下面是具体 *** 作步骤:
在第一页后面画上49行表格,点文件-页面设置-工作表,共用表头
选第一页 点页眉页脚 在页脚处插入页码
点确定就行了,点以下打印预览看以下,内容相同的一页文件就变成了一到五十并且有页码的表格了。(本方法适用电子表格)
备注:Excel在第一页的打印范围外,加+N行放到打印范围内(我是用分页浏览去拉的打印范围),然后切到工作表工作状态下,点页面设置--->工作表--->打印范围把整个表选起来(N行在内,这步可不 *** 作,试下应该也是可以的),——>顶端标题行选第一页全部——>点确定——>浏览看是否有N个表了。
如有了N个表——>就设置自定义页脚——>可以 汉定+数字前缀(可数字可以汉字,不变化都可以)+可变化的页码——>用Excel自带的页码按钮,再看看,是不是作到本文标题上所说的结果了!
建30个一样的sheet。比较简便的 *** 作时右键点第一个sheet,选“移动或复制”,勾上“建立副本”,确定,一个就变两个,然后按住shift键,选中两个sheet,再如此 *** 作一番,2个变4个,以此类推,4个变8个……打印时,选择打印整个工作簿。
注意:每个工作表要插入页脚页码,这个貌似题主是会的,就不赘述了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)