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
这个只能单个进行处理页面设置，怎么才能批量
进行处理页面设置