1.請參考
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=65150    2.
procedure TForm1.Button2Click(Sender: TObject);
var
  ex, ws: Variant;
  SrcFile,TgtFile : String;
begin
  SrcFile := 'C:\Temp\Test.xls';
  TgtFile := 'C:\Temp\Result.xls';
  ex := CreateOleObject('Excel.Application');
  ws := ex.WorkBooks.Open(SrcFile);
  ex.Visible := true;
  ex.ActiveSheet.Rows[1].Interior.Color := RGB(255,0,0);
  ex.ActiveWindow.Zoom := 75; // 螢幕上縮放比例
  ws.ActiveSheet.PageSetup.zoom := 75; // 列印縮放比例
  IF FileExists(TgtFile) THEN
    DeleteFile(TgtFile);
  ex.ActiveWorkBook.SaveAs(TgtFile,xlNormal);
  ex.ActiveWorkBook.Close;
  ex.quit;
end;