Sub Macro1()
'
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2010-8-14
'
' 快捷键: Ctrl+z
'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(2.3)
        .RightMargin = Application.InchesToPoints(2.3)
        .TopMargin = Application.InchesToPoints(2.3)
        .BottomMargin = Application.InchesToPoints(2.3)
        .HeaderMargin = Application.InchesToPoints(2.1)
        .FooterMargin = Application.InchesToPoints(2.1)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWorkbook.Save
End Sub
这个只能单个进行处理页面设置，怎么才能批量
进行处理页面设置

看起来好深奥的样子啊！！！

你这个宏是对当前选定的工作表进行设置的

有二种方法:
1\  另一个过程中, 循环依次设置工作表为当前工作表,然后调用这个 宏.

2\修改宏,把对 活动工作表引用改为 形参工作表 的引用.
   然后用循环,依次把各个工作表当作参数传进去.

代码我忘了,很久没看 VBA 了,你自己研究下,
建议你用第一种方法,更简单一点.运行速度可能稍比第二种方法慢一点.

还有你这个宏需要优化一下代码.仔细看看.
不过,不优化也问题不大.