导出的Excel文件中加入宏命令。(BS结构)

Sub Macro1()

'

' Macro1 Macro

' 宏由 user 录制，时间: 2008-11-28

'



'

    With ActiveSheet.PageSetup

        .PrintTitleRows = "$1:$5"

        .PrintTitleColumns = ""

    End With

    ActiveSheet.PageSetup.PrintArea = ""

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.748031496062992)

        .RightMargin = Application.InchesToPoints(0.94488188976378)

        .TopMargin = Application.InchesToPoints(0.984251968503937)

        .BottomMargin = Application.InchesToPoints(0.984251968503937)

        .HeaderMargin = Application.InchesToPoints(0.511811023622047)

        .FooterMargin = Application.InchesToPoints(0.511811023622047)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintNoComments

        .PrintQuality = 300

        .CenterHorizontally = True

        .CenterVertically = False

        .Orientation = xlPortrait

        .Draft = False

        .PaperSize = xlPaperA4

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = 80

        .PrintErrors = xlPrintErrorsDisplayed

    End With

End Sub