利用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界面，在語文表格里啟動宏。

執行宏--“排版”。

語文表橫向打印自動排版的效果。

可以“打印預覽”，看看效果。

預覽的效果。

同樣，在數學表格里啟動宏。

執行宏--“排版”，完成后，也可以“打印預覽”，看看預覽的效果。

同樣的操作，可以完成英語表格的自動排版，看看打印預覽的效果。