Delphi控制Excel2000

领测软件测试网

    c.页眉到顶端边距2cm：
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
    d.页脚到底端边距3cm：
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
    e.顶边距2cm：
    ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
    f.底边距2cm：
    ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
    g.左边距2cm：
    ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
    h.右边距2cm：
    ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
    i.页面水平居中：
    ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
    j.页面垂直居中：
    ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
    k.打印单元格网线：
    ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
    15) 拷贝操作：
    a.拷贝整个工作表：
    ExcelApp.ActiveSheet.Used.Range.Copy;
    b.拷贝指定区域：
    ExcelApp.ActiveSheet.Range[ ’A1:E2’ ].Copy;
    c.从A1位置开始粘贴：
    ExcelApp.ActiveSheet.Range.[ ’A1’ ].PasteSpecial;
    d.从文件尾部开始粘贴：

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