有6个sheet。 排版乱七八糟的，有的打印区域是横向，有的是竖向的，页边距也不统一。解决办法：

Sub 宏1()
Dim Sh As Worksheet
  For Each Sh In Worksheets
    With Sh.PageSetup
      .LeftMargin = Application.CentimetersToPoints(1)      '左边 1 厘米
      .RightMargin = Application.CentimetersToPoints(1)     '右
      .TopMargin = Application.CentimetersToPoints(1)       '上
      .BottomMargin = Application.CentimetersToPoints(1)    '下
      .Orientation = 1  '纸张方向，1》横向，2》纵向
    End With
  Next
End Sub
转自：

http://www.excelpx.com/thread-290560-1-1.html

With Worksheets("信息收集表（个人）").PageSetup 'PageSetup页面设置属性
     .Zoom = False '为ture则自动,但下两个不能设置
     .FitToPagesTall = 2 '按1:1的高缩放
     .FitToPagesWide = 2 '按1:1的宽缩放
End With