对所有工作表进行页面设置 - 这样为什么不对呢？

jlwsb

1. Sub 对所有工作表进行页面设置()
   
2. '
   
3. Worksheets.Select       '选中所有工作表
   
4.    
   
5.     With ActiveSheet.PageSetup
   
6.         .Orientation = xlLandscape  '横向
   
7.         .Zoom = 100     '缩放比例=100%
   
8.         .FirstPageNumber = True     '起始页码 = -1
   
9.         .LeftMargin = 14.173228     '页边距左 = 0.5 厘米
   
10.         .RightMargin = 14.173228     '页边距右 = 0.5 厘米
    
11.         .TopMargin = 14.173228     '页边距上 = 0.5 厘米
    
12.         .BottomMargin = 14.173228     '页边距下 = 0.5 厘米
    
13.         .HeaderMargin = 0     '页边距页眉 = 0 厘米
    
14.         .FooterMargin = 0     '页边距页脚 = 0 厘米
    
15.         .CenterHorizontally = True     '居中方式-水平 = 真
    
16.         .CenterVertically = True        '居中方式-垂直 = 真
    
17.         .PrintErrors = xlPrintErrorsDisplayed      '错误单元格打印 = 显示值
    
18.         .Order = xlDownThenOver      '打印顺序 = 先列后行
    
19.         .PrintGridlines = False      '打印-网格线 = 假
    
20.         .PrintHeadings = False      '打印标题 = 假
    
21.         .BlackAndWhite = False      '单色打印 = 假
    
22.         .PrintQuality = 600      '打印质量 = 600
    
23.         .PaperSize = xlPaperA4      '纸张大小 = A4
    
24.         .PrintComments = -4142      '批注 = 无
    
25.     End With
    
26. 
    
27. End Sub
    

复制代码

请问这样为什么不对呢？ 实际效果 只有 一个工作表进行了页面设置。

liulang0808

Sub 对所有工作表进行页面设置()
'
For Each sh In Worksheets
    sh.Select
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape  '横向
        .Zoom = 100     '缩放比例=100%
        .FirstPageNumber = True     '起始页码 = -1
        .LeftMargin = 14.173228     '页边距左 = 0.5 厘米
        .RightMargin = 14.173228     '页边距右 = 0.5 厘米
        .TopMargin = 14.173228     '页边距上 = 0.5 厘米
        .BottomMargin = 14.173228     '页边距下 = 0.5 厘米
        .HeaderMargin = 0     '页边距页眉 = 0 厘米
        .FooterMargin = 0     '页边距页脚 = 0 厘米
        .CenterHorizontally = True     '居中方式-水平 = 真
        .CenterVertically = True        '居中方式-垂直 = 真
        .PrintErrors = xlPrintErrorsDisplayed      '错误单元格打印 = 显示值
        .Order = xlDownThenOver      '打印顺序 = 先列后行
        .PrintGridlines = False      '打印-网格线 = 假
        .PrintHeadings = False      '打印标题 = 假
        .BlackAndWhite = False      '单色打印 = 假
        .PrintQuality = 600      '打印质量 = 600
        .PaperSize = xlPaperA4      '纸张大小 = A4
        .PrintComments = -4142      '批注 = 无
    End With
Next
End Sub

psxk3535

ActiveSheet 就是当前工作表，所以操作本身就是对活动工作表的操作，没有进行循环切换操作，结果就是只对当前的工作表处理。其他工作表根本没有动，版主的代码加了 For Each sh In Worksheets 循环，对所有工作表进行处理。