利用Excel自带的vba编程实现表格的自动排版。本文谈的是横向印刷的排版问题。
步骤
案例:排版要给的表格。
注意有三张表,分别是语文、数学、英语的统计表。
在语言表中启动vba。
在vba界面中插入模块。
编写模块1中的程序。将程序命名为排版,调用工作表函数counta计算行数和列数。
A4纸的宽度是21厘米。行高统一设定时,从21中减去两个3,在一张A4纸上下各留3cm,剩下的按总行数平均分配。
A4纸的长度在统一设置列宽的情况下是29.7cm,用29.7减去两个1.9,在一张A4纸的左右两边各留1.9cm,剩下的按总列数平分。
设置横向打印。
写完程序后,关闭vba界面,在中文表中启动宏。
宏执行——“排版”。
自动排版在中文表格横向打印中的作用。
可以“打印预览”看看效果。
预览效果。
同样,在数学表中启动宏。
执行宏——“排版”。完成后还可以“打印预览”看预览效果。
同样的操作,就可以完成英文表格的自动排版,看到打印预览的效果。
以上是excel横排打印自动排版方法的介绍。操作很简单。你学会了吗?希望这篇文章能对大家有所帮助!