怎样用delphi控制excel页脚文字的大小，答对马上给分

Question

如题，最好给出示范代码，高分求助！！！！

Answer 1

页脚倒是没用过不过我录制一段宏也许对你有帮助    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
-----------------------------------------------------------
        .LeftFooter = "&""黑体,常规""ABCD"
-------------------------------------------------------------
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .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
    End With

Answer 2

经试验方法如下：Sheet.PageSetup.CenterFooter := '&"宋体,加粗"&28&P';
      --------- ------------      ---------  -- --
      页脚设置    居中文字            字体   大小 P代表第几页
                LeftFooter                28为字体大小 
                 居左文字
                RightFooter
                 居右文字