怎么批量设置多个excel文件固定某页表格的页边距

Question

下面是我录的宏
Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End Sub

Answer 1

具体操作步骤如下：

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

　    

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

　    

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

　    

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

　    

Answer 2

具体步骤：

1.先准备一个测试的xls文件进行情景假设，一共3个标签页，内容均有超出，如图所示。

2.打开“页面设置”对话框，发现左右页边距均为1.9；

若左右编辑均调整为0.1，则超出内容就不会换页；

但是这样只是设置一个页面的，如果有几百页，一个一个调整不仅工作量很大，还很容易出错。

3.在当前选中的Sheet页上点右键，在弹出的菜单上选择“选定全部工作表”；

此时会看到，所有的Sheet页都变成了选中状态。

4.此时再进行第2步的操作，然后就等上一段时间。此时不要做任何操作，等待它自己完成。

界面能操作了，就表示设置完毕了，此时再检查各个页面的设置，发现均以设置完毕。

5.此方法不仅适用在页面设置上，其他多标签页的批量设置也均类似.

Answer 3

怎么会不行呢？方法如下：
选择你要设置相同页边距的第一个工作表标签，按Shift不放，选择最后一个工作表标签，如果不相邻，可分别点选。然后设置页面就行了。这样你所选择的那些工作表的页面全是一样的。追问

我要设置几千个文件的sheet2的页边距，你说的是同一个文件的若干sheet

追答

那就用VBA解决吧

追问

代码怎么写

Answer 4

在页面布局里有自定义页边距设置，按你需要的设置既可以。追问

那里似乎不能同时设置多个文件吧

追答

这个确实不可以的，如果有耐心的话可以分别设置，因为每个文件需要的边距未必一样。如果你真想简便的话，就把宏里leftmargin、rightmargin这些进行设置了，把后面的数据改成你需要的边距值就行了

本回答被提问者采纳