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;
If CheckBox15.State = cbUnchecked Then
//Если CheckBox15 выключен удаляем лист5
begin
Ex.DisplayAlerts:=False;
Ex.ActiveWorkBook.WorkSheets[5].Delete;
Ex.DisplayAlerts:=True;
end;
If expression Then statement
If CheckBox15.State = cbUnchecked Then
//Если CheckBox15 выключен удаляем лист5
begin
Ex.DisplayAlerts:=False;
Ex.ActiveWorkBook.WorkSheets[5].Delete;
Ex.DisplayAlerts:=True;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.