如何修改文件夹内所有excel工作簿的页边距?

发布网友 发布时间：2022-04-24 08:47

我来回答

共7个回答

热心网友 时间：2022-05-21 06:21

1.右键单击某一工作表的标签，然后单击快捷菜单上的“选定全部工作表”。
2.在“页面布局”选项卡上的“页面设置”组中，单击“页边距”。
3.根据你的需要去设置页边距就可以了。追问那还是要每个工作簿去改啊。我想把页边距都应用在EXCEL上的呢？

热心网友 时间：2022-05-21 07:39

1、打开需要打印的Excel表格，然后点击左上角的【打印预览】；
2、此时出现的页面可以看到，要打印的表格，刚好横向超过一页，且只超过两列的位置；
3、我们只需要勾选页面上方菜单栏里的【显示页边】；
4、这时就会上下左右四个方向各出现2条虚线，一共8条虚线；
5、分别拖动任意虚线，向四个方向移动，直至将需要打印的表格完全显示在一个页面内，页边距即设定完成，然后打印，就可以打出一张内容显示在一页上的完整的表格了。追问差不多八百份excel工作簿，一张张改到什么时候？

热心网友 时间：2022-05-21 09:14

试试下面代码吧
sub
打印奇偶页()
dim
totalpg
as
integer
totalpg
=
executeexcel4macro("get.document(50)")
msgbox
"现在开始打印奇数页"
'设置页边距（英寸）（1英寸=2.54厘米）
with
activesheet.pagesetup
.leftmargin
=
application.inchestopoints(2.3622)
'左边距6cm
.rightmargin
=
application.inchestopoints(0.748)
'右边距1.9cm
end
with
for
i
=
1
to
totalpg
step
2
activesheet.printout
from:=i,
to:=i
next
msgbox
"现在开始打印偶数页"
'设置页边距
with
activesheet.pagesetup
.leftmargin
=
application.inchestopoints(0.748)
'左边距1.9cm
.rightmargin
=
application.inchestopoints(2.3622)
'右边距6cm
end
with
for
i
=
2
to
totalpg
step
2
activesheet.printout
from:=i,
to:=i
next
end
sub

热心网友 时间：2022-05-21 11:05

请问，你最后这个问题解决了吗？有批量操作的办法吗？我现在也是五百多个表格要修改

热心网友 时间：2022-05-21 13:13

VBA可以实现，发几个案例过来追问怎么发给你？

追答发邮件，1130466711@qq.com

热心网友 时间：2022-05-21 15:38

我倒是会写，文档整过来吧追问怎么弄？

热心网友 时间：2022-05-21 18:19

来来来口袋龙珠快结婚了魔法爱护拉锯