1、工具——宏——錄製新宏——在彈出的視窗按“確定”，改改宏的名字更好記。

2、調整行高列寬

4、工具——宏——宏——在彈出的視窗中選擇剛才錄製的宏，按“執行”。

如果不喜歡宏的話，當然也有自動化的弄法，那就要增加程式碼了：

Sub Macro1()

"

" Macro1 Macro

"

"

With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.31496062992126)

.RightMargin = Application.InchesToPoints(0.31496062992126)

.TopMargin = Application.InchesToPoints(0.354330708661417)

.BottomMargin = Application.InchesToPoints(0.748031496062992)

.HeaderMargin = Application.InchesToPoints(0.31496062992126)

.FooterMargin = Application.InchesToPoints(0.31496062992126)

End With

End Sub