var  MyExcel: Variant;
begin
  MyExcel := CreateOleOBject('Excel.Application');
  MyExcel.WorkBooks.Add(path);
  MyExcel.Visible := True;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells.Select;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells.ClearContents;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1].Select;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells.Select;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells.EntireColumn.AutoFit;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1].Select;
  MyExcel.WorkBooks[1].WorkSheets[1].PageSetup.LeftHeader := RangeStr;
//  if ComboBox3.Items.IndexOf(ComboBox3.Text) <> -1 then
//    MyExcel.ActivePrinter := ComboBox3.Text;
    MyExcel.WorkBooks[1].PrintOut;
    MyExcel.WorkBooks[1].PrintPreview;        MyExcel.WorkBooks[1].Save;
  MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,1] := sAntiName;
    MyExcel.WorkBooks[1].Clsoe;
    MyExcel.Quit;    end;