excel横向打印的自动排版

Excel

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

步骤

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

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

在语文表格里启动VBA。

在VBA界面插入模块。

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

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

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

设置横向打印。

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

执行宏--排版。

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

可以打印预览，看看效

预览的效果。

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

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

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

在excel中进行横向打印时，可以通过以下步骤自动调整排版以适应页面：

1. 首先，选择“文件”选项卡，然后点击“页面设置”。

2. 在弹出的“页面设置”对话框中，选择“方向”选项卡。

3. 在“方向”部分，勾选“横向”选项。

4. 接着，切换到“布局”选项卡，根据需要调整“调整为适合”中的行数和列数，以便整个工作表内容能够适应横向打印页面。

5. 你也可以选择“页面”选项卡，然后在“缩放”部分调整比例，以确保内容能够适应横向打印页面。

6. 如果工作表中有大量数据，可以考虑调整列宽和行高，使其更紧凑地排列在页面上。

7. 最后，点击“确定”保存设置，然后预览打印效果，确保所有内容都能正确显示。