Question

如何一次性设置多个EXCEL工作表的全部打印设置

比如一个工作薄里面有五六十个工作表，想只设置其中一个，其他的便跟回这个，不要告诉我选定多个工作表的方法进行设置，那样根本行不通，最好能有什么宏或者是其他确实可行的办法，谢谢！
谢谢你对此问题的关心，但是关于同时选定多个工作表来设置，我真的很失望，不管是按shift还是crtl或者是右击工作标签选择选定全部工作表菜单，你设置好其中一个后，你再打开别的工作表看其打印设置，还是没有用的，你可以自己试一下，你们那样选定，用来对单元格格式操作是没问题的，但是对打印设置不起作用

那位仁兄甩下了一句让我好期待的话就走了，我一直再等呢！我具体想设置成：横向 75%缩放 上下左右页边距1.1 页眉页脚边距0.5 自定义一个统一的页眉，页脚为共?页，第？页这样就行了，打印区域为工作表默认区域就行！谢谢，急用啊。

3-9日补充：首先谢谢你cnmhdzc的回答，因为我只会用傻瓜式的“宏”，所以我把你录制的宏复制到工作表查看代码，插入模块，点粘贴，再点F5运行，会提示我：运行时错误'1004' 不能设置类pagesetup的PrintQuality属性。若是点调试，则光停留在PrintQuality = 300 ，恕我愚昧，真的对宏不懂，还要劳你大驾，我可以在哪些地方修改啊？最好你就给我一刀痛快的吧，具体如何用呢？

Answer 1

选定多个工作表的方法进行设置没有困难呀，关键是选择的方法，你首先单击第一个工作表标签，然后按住SHIFT键，再单击第一个工作表标签左边的滚动到最一个工作表的按钮（类似于录音机或CD机上的下一首曲子的按键符号），然后再单击最后一张工作表的标签，这样就全部选择了所有工作表，再进行页面设置，这样挺快的呀？
也许我没搞清楚你的问题。。。。。。

Answer 2

那么你只能设置页边距、页眉页脚=与打印区域无关的东西

运行下边的宏（需要的地方自己修改）
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