手机版

首页 IT科技安全资讯卡饭教程卡饭论坛

卡饭网 > 其他 > 正文

excel横向打印的自动排版

来源：本站整理作者：梦在深巷时间：2016-05-09 15:01:52

利用excel自带的vba编程，实现对表格的自动排版，本文来说说横向打印的排版。

步骤

案例：要给如图的表格排版。

注意，一共有三张表格，分别是语文、数学、英语学科成绩统计表。

excel横向打印的自动排版

在语文表格里启动vba。

excel横向打印的自动排版

在vba界面插入模块。

excel横向打印的自动排版

在模块1里编写程序。给程序命名为排版，调用工作表函数counta统计行数和列数。

excel横向打印的自动排版

A4纸的宽为21cm，统一设置行高时，就在21里面减去2个3，给一张A4纸上下各留3cm，把余下的部分按总行数平均分。

excel横向打印的自动排版

A4纸的长为29.7cm，统一设置列宽时，就在29.7里面减去2个1.9，给一张A4纸左右各留1.9cm，把余下的部分按总列数平均分。

excel横向打印的自动排版

设置横向打印。

excel横向打印的自动排版

编写程序完，关闭vba界面，在语文表格里启动宏。

excel横向打印的自动排版

执行宏--“排版”。

excel横向打印的自动排版

语文表横向打印自动排版的效果。

excel横向打印的自动排版

可以“打印预览”，看看效果。

excel横向打印的自动排版

预览的效果。

excel横向打印的自动排版

同样，在数学表格里启动宏。

excel横向打印的自动排版

执行宏--“排版”，完成后，也可以“打印预览”，看看预览的效果。

excel横向打印的自动排版

同样的操作，可以完成英语表格的自动排版，看看打印预览的效果。

excel横向打印的自动排版

以上就是excel横向打印的自动排版方法介绍，操作很简单的，大家学会了吗？希望这篇文章能对大家有所帮助！

本周热门

本月热门