如何在delphi 中控制excel表的一個小問題?急呀請幫忙.

Question

我是這樣控制excel表的. 
excelapp:=createoleobject('excel.application');
excelapp.visible:=true;
excelapp.caption:='應用程序調用 Microsoft Excel';
excelapp.workbooks.add;
.....
excelapp.activesheet.pagesetup.HeaderMargin:=1/0.035;
  excelapp.activesheet.pagesetup.HeaderMargin:=1/0.035;
  excelapp.activesheet.pagesetup.TopMargin:=1/0.035;
  excelapp.activesheet.pagesetup.BottomMargin:=1/0.035;
  excelapp.activesheet.pagesetup.LeftMargin:=1/0.035;
  excelapp.activesheet.pagesetup.RightMargin:=1/0.035;
  excelapp.activesheet.pagesetup.CenterHorizontally := true;
  excelapp.activesheet.pagesetup.CenterVertically := false;
  excelapp.activesheet.PageSetup.Orientation := xlLandscape ; //這是設置頁面方向
  excelapp.activesheet.printpreview;
但是我想把數據表格裡的字符串縮小字型以符合欄寬,請問要怎樣來用autofit這個命令?
還有要怎樣才能設置分頁符.

Answer 1

分頁符.
ExcelApp.WorkSheets[1].Rows.PageBreak := 1;