procedure TForm1.Button1Click(Sender: TObject);
var
  FExcelApplication, FExcelWorkbook, FExcelWorksheet: Variant;
begin
  FExcelApplication := CreateOleObject('Excel.Application');
  FExcelApplication.Caption := '1234';
  FExcelWorkbook := FExcelApplication.Workbooks.Add;
  FExcelWorksheet := FExcelWorkbook.ActiveSheet;
  //板面橫向、縱向的設定
  FExcelWorksheet.PageSetup.Orientation := $00000002; //xlLandscape
  //FExcelWorksheet.PageSetup.Orientation := $00000001; //xlPortrait
  //板面橫向、縱向的設定
  //調整成頁寬,頁高的設定
  FExcelWorksheet.PageSetup.Zoom := False;
  FExcelWorksheet.PageSetup.FitToPagesWide := 2;
  FExcelWorksheet.PageSetup.FitToPagesTall := 2;
  //調整成頁寬,頁高的設定      FExcelApplication.Visible := True;
  
  FExcelWorksheet := Unassigned;
  FExcelWorkbook := Unassigned;
  FExcelApplication := Unassigned;
end;