30.09.2009, 12:37
|
|
Прохожий
|
|
Регистрация: 18.09.2009
Адрес: Курск
Сообщения: 49
Репутация: 10
|
|
Результат
Вот то что я выстрадал, если у кого либо есть идеи по доработке просьба отписаться
Код:
Var
x:variant;
Tel,datD,datM,datY:String;
myDate : TDateTime;
i,z:integer;
const xlShiftDown = $FFFFEFE7;
begin
z:=StrToInt(gar5.Text);
x:=CreateOleObject('Excel.Application');
x.WorkBooks.ADD(template:='D:\info-c\Бланки\Garant.xls');
x.worksheets[1].Select;
myDate:=Now;
DateTimeToString(datD, 'dd', myDate);
DateTimeToString(datM, 'mmmm', myDate);
DateTimeToString(datY, 'yyyy', myDate);
x.cells[StrToInt(gar7.Text),StrToInt(gar8.Text)]:='ГАРАНТИЙНЫЙ ТАЛОН от «' +datD+ '» ' +datM+' '+datY+' г.';
with Table3 do
begin
Table3.First;
for i := 0 to 9 do
if not EOF then
begin
z:=StrToInt(gar1.Text)+i+1;
x.cells[StrToInt(gar1.Text)+i,StrToInt(gar2.Text)]:=FieldByName('Наименование').AsString;
x.Range['A'+IntToStr(StrToInt(gar1.Text)+i)+':C'+IntToStr(StrToInt(gar1.Text)+i)].select;
x.selection.borders.linestyle:=1;
x.Range[IntToStr(z)+':'+IntToStr(z), EmptyParam].EntireRow.Insert(xlShiftDown, EmptyParam);
Table3.Next;
end;
end;
x.visible:=true;
|