procedure TForm2.DPrint;
 var
  Ex, Workbook, L1, L2, L3, L4, L5, FitToPagesTall,FitToPagesWide,
  CenterHorizontally, CenterVertically, Orientation, PaperSize:Variant;
 begin

  dt := Form2.Edit35.Text;
  n1 := Form2.ComboBox1.Text;

  L1 := 'Лист1';
  L2 := 'Лист2';
  L3 := 'Лист3';
  L4 := 'Лист4';
  L5 := 'Лист5';

  Ex := CreateOleObject('Excel.Application');

  Ex.Application.EnableEvents := false;
  Ex.DisplayAlerts := False;

   Workbook := Ex.WorkBooks.Open('C:\Prog\Sn.res');

  Ex.Visible := false; 
  Ex.ActiveWorkBook.WorkSheets['L15'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L14'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L13'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L12'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L11'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L10'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L9'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L8'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L7'].Delete;
  Ex.ActiveWorkBook.WorkSheets['L6'].Delete;

  Ex.DisplayAlerts:=True;
  Ex.ActiveWorkBook.WorkSheets[1].Name:=L1;
  Ex.ActiveWorkBook.WorkSheets[2].Name:=L2;
  Ex.ActiveWorkBook.WorkSheets[3].Name:=L3;
  Ex.ActiveWorkBook.WorkSheets[4].Name:=L4;
  Ex.ActiveWorkBook.WorkSheets[5].Name:=L5;

  If CheckBox15.State = cbUnchecked Then //Если CheckBox15 выключен удаляем лист5
       Ex.DisplayAlerts:=False;
       Ex.ActiveWorkBook.WorkSheets[5].Delete;
       Ex.DisplayAlerts:=True;
                                             
  If CheckBox14.State = cbUnchecked Then  //Если CheckBox14 выключен удаляем лист4 
       Ex.DisplayAlerts:=False;
       Ex.ActiveWorkBook.WorkSheets[4].Delete;
       Ex.DisplayAlerts:=True;

  If CheckBox13.State = cbUnchecked Then  //Если CheckBox13 выключен удаляем лист3 
       Ex.DisplayAlerts:=False;
       Ex.ActiveWorkBook.WorkSheets[3].Delete;
       Ex.DisplayAlerts:=True;