如何通过delphi 控制excel 的页边距？

Question

现在我在delphi中想把表格导入到excel中，然后进行打印。
用到的语句是这样的：
ExcelApp := CreateOleObject( 'Excel.Application' );
我想把表格正好设置到一张A4纸上，这样方便打印。
请问各位大侠，
如何在程序中设置excel的页边距呢？如何将表格在页面上居中显示呢？

Answer 1

页面水平居中：
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally :=True;
j.页面垂直居中：
ExcelApp.ActiveSheet.PageSetup.CenterVertically :=True;这些东西录制个宏看下代码就有了

Answer 2

  with  MainFrm.ExcelWorksheet1.PageSetup do
  begin
    HeaderMargin := 0.5/0.035;        
    HeaderMargin := 0.2/0.035;    
    TopMargin := 0.5/0.035;   
    BottomMargin := 0.5/0.035;
    LeftMargin := 0.5/0.035;         
    RightMargin := 0.5/0.035;        
  end;