选定多个工作表的方法进行设置没有困难呀,关键是选择的方法,你首先单击第一个工作表标签,然后按住SHIFT键,再单击第一个工作表标签左边的滚动到最一个工作表的按钮(类似于录音机或CD机上的下一首曲子的按键符号),然后再单击最后一张工作表的标签,这样就全部选择了所有工作表,再进行页面设置,这样挺快的呀?
也许我没搞清楚你的问题。。。。。。
那么你只能设置页边距、页眉页脚=与打印区域无关的东西
运行下边的宏(需要的地方自己修改)
Sub pageset()
'
' pageset Macro
' 宏由 cnmhdzc 录制,时间: 2009-3-4
'
For Each sht In ActiveWorkbook.Sheets
With sht.PageSetup
.RightFooter = "共&N页,第&P页"
.LeftMargin = Application.InchesToPoints(0.433070866141732)
.RightMargin = Application.InchesToPoints(0.433070866141732)
.TopMargin = Application.InchesToPoints(0.433070866141732)
.BottomMargin = Application.InchesToPoints(0.433070866141732)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.Orientation = xlLandscape
.Zoom = 75
End With
Next sht
End Sub