返回目录：excel表格制作
很多时候，我们需要对Excel表格进行打印。调页边距，增加页码。
比如这样。
以博客第8节为例，假设老师需要把这88个工作表全部打印出来，然后调好统一的页边距，然后全部加上页码。
统一为下面的参数。
不用想，如果没有宏，这是一个非常庞大的工程。
那么，可以用宏来解决吗？
答案当然是可以的噢！
先说下原理，小编通过“录制宏”的功能，发现了几个关键代码，用于调页边距以及页眉页脚的。
代码如下：
For i = 1 To ActiveWorkbook.Worksheets.Count '统计所有工作表个数 With ActiveWorkbook.Worksheets(i).PageSetup '遍历所有工作表 .CenterFooter = "第 &P 页" '页码格式为第i页 .LeftMargin = 28.346457*1.5 '左边距1.5 .RightMargin = 28.346457*1.5 '右边距1.5 .TopMargin = 28.346457 * 1.91 '上边距1.91 .BottomMargin = 28.346457 * 1.8 '下边距1.8 .HeaderMargin = 28.346457 * 1.8 '页眉0.76 .FooterMargin = 28.346457 * 0.5 '页脚0.5 End WithNext
代码就是上面那样了，当然还需要定义一下i，定义一下宏，我这里就不展示了。
我想说的是，通过修改里面的参数，就可以达到批量修改所有工作表布局。顺便给表格加上页码了。
导入宏，修改一下你想要的页边距，然后运行即可。是不是很简单呢。如果不想加入页码，可以删除相关代码即可。如果想改其它的页码格式，录一个宏，看看代码，然后修改一下格式即可。
相关测试文件以及宏，请关注公众号“潮办公”后台回复“035”即可获取下载链接。
有想学如何编写Excel宏代码的童鞋嘛，如果有，请在评论区留个爪，超过60人我就开教程连载哦。
好了，今天的分享到这里结束，我们下期再见。