Delphi控制Excel2000(3) 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;