Delphi控制Excel2000

领测软件测试网

    13) 指定边框线宽度：
    ExcelApplication1.ActiveSheet.Range[ ’B3:D4’ ].Borders[2].Weight := 3;
    1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
    14) 清除第一行第四列单元格公式：
    ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;
    15) 设置第一行字体属性：
    ExcelApplication1.ActiveSheet.Rows[1].Font.Name := ’隶书’;
    ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
    ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;
    ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;
    16) 进行页面设置：
    a.页眉：
    ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := ’报表演示’;
    b.页脚：
    ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := ’第&P页’;
    c.页眉到顶端边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
    d.页脚到底端边距3cm：
    ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
    e.顶边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
    f.底边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
    g.左边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
    h.右边距2cm：

文章来源于领测软件测试网 https://www.ltesting.net/