Excel 修改新建文档左右<em>页边距vb</em>a怎么写

具体操作步骤如下：百

1、首先，在计算机桌面找到并打开excel表格，如下图所示，然后进入下一步。

　    

2、其次，先选择一个电子表格，按住计算机键盘上的Shift键，然后单击其他需要设置页边距的电子表格，如下图所示，然后进入下度一步。

　    

3、接着，选择所有电子表格后，选择其中一个电子表格右侧的页面内布局选项，找到页面边距，然后单击打开，如下图所示，然后进入下一步。

　    

4、最后，在弹出窗口中，根据需要设置页边距，这样多个电子表格的页边距就设置为相同了，如下图所示。这样，问题就解决了容。

　    

With ActiveSheet.PageSetup
'括号内数zd值乘以2.54即为页版面设置数据权
.LeftMargin = Application.InchesToPoints(0.94488188976378)
.RightMargin = Application.InchesToPoints(0.94488188976378)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.5147)
.FooterMargin = Application.InchesToPoints(0.5147)
End With
Dim i% '设置百动态度打印知区域道
i = ActiveSheet.Range("xx").CurrentRegion.Rows.Count '使用的内行数容
ActiveSheet.PageSetup.PrintArea = Range("A1:M" & i).Address

你这e799bee5baa6e78988e69d83330个代码是在VB中用的， 用下面的代码

  sub 打印格式（）
  With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$3"
        .PrintTitleColumns = ""
 End With
 head = """第 &P 页，共 &N 页"""
 foot = ""
 pLeft = 0.54
 pRight = 0.3
 Top = 0.4
 bot = 0.17
 head_margin = 0.12
 foot_margin = 0.17
 hdng = False
 grid = False
 Notes = False
 quality = ""
 h_cntr = False
 v_cntr = False
 orient = 2
 Draft = False
 paper_size = 9
 pg_num = ""
 pg_order = 1
 bw_cells = False
 pscale = "{1,#N/A}"
 psetup = "PAGE.SETUP(" & head & "," & foot & "," & pLeft & "," & pRight & ","
 psetup = psetup & Top & "," & bot & "," & hdng & "," & grid & "," & h_cntr & ","
 psetup = psetup & v_cntr & "," & orient & "," & paper_size & "," & pscale & ","
 psetup = psetup & pg_num & "," & pg_order & "," & bw_cells & "," & quality & ","
 psetup = psetup & head_margin & "," & foot_margin & "," & Notes & "," & Draft & ")"

 Application.ExecuteExcel4Macro psetup
 end sub