1、打开新建一个并打开EXCEL工作表
2、使用Alt+F11组合快捷键进入vbe编辑器或者单击【开发工具】-VIsual Basic，并插入一个新的模块。如图所示。
3、在模块中编写如下代码：Sub 初始化设置() Cells.Select Selection.RowHei爿讥旌护ght = 16 Selection.ColumnWidth = 9 With ActiveSheet.PageSetup .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.196850393700787) .RightMargin = Application.InchesToPoints(0.196850393700787) .TopMargin = Application.InchesToPoints(0.590551181102362) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0.196850393700787) .FooterMargin = Application.InchesToPoints(0.196850393700787) .Zoom = 100 End WithEnd Sub这部分代码单位英寸。
4、如果我们想直接设置厘米单位，我们这一将蜣贺鱿柢代码改为如下：Sub 初始化设置() ActiveSheet.Cells.RowHeight = 16 ActiveSheet.Cells.ColumnWidth = 9 With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(0.5) .RightMargin = Application.CentimetersToPoints(0.5) .TopMargin = Application.CentimetersToPoints(1.5) .BottomMargin = Application.CentimetersToPoints(1) '底 .HeaderMargin = Application.CentimetersToPoints(0.5) '页眉 .FooterMargin = Application.CentimetersToPoints(0.5) '页脚 .Zoom = 100 End WithEnd Sub
5、其设置的效果为行高16，列宽9 ，页面设置如下图所示。
