Вывод отчета в Excel

[Gul'ka]

Я так пробовала, в данном случае не выделяет жирным только 1 строку таблицы, а после нее все выделяется жирным. То есть со второй строки и до итого (включительно) - все жирное.
Просто может дело в том, что столбы таблицы тоже через а выводятся

          Sheet.Cells[a,1] := FieldByName('Наименование').AsString;
          Sheet.Cells[a,2] := FieldByName('Количество_часов').AsString;
          Sheet.Cells[a,3] := FieldByName('Количество_учеников').AsString;
          Sheet.Cells[a,4] := FieldByName('Цена_за_кружок').AsString;

[Serge_Bliznykov]

во-первых, покажите код полностью. по кусочку (в котором нет вообще изменения параметров шрифта) нечего сказать.

во-вторых, выделение ячеек никак не связано с тем, откуда Вы берёте данные и куда их выводите.

в-третьих, я же дал ссылку на код, где используется изменение параметров ячеек и оформления.


Продолжим играть в партизан и угадайку - что Вы сделали не так и что надо было сделать?

[Gul'ka]

Приношу свои извинения. Вот весь код:

var
i, a: integer;
dir: string;
sum1, sum2, sum3: real;
begin
  sum1:=0;
  sum2:=0;
  sum3:=0;
  a := 4;
  Excel := CreateOleObject('Excel.Application');
  GetDir(0, dir);
  chdir (dir);
  dir := dir + '\Документы\Общий отчет кружки.xlt';
  WorkBook := Excel.WorkBooks.Open(dir);
  Sheet := WorkBook.Sheets[1];
  Excel.Visible:=True;
  with DM.ADOQuery4 do begin
    Last;
    First;
    for i:= 1 to RecordCount do begin
sum1:=sum1+DM.ADOQuery4.FieldByName('Количество_часов).AsFloat;
sum2:=sum2+DM.ADOQuery4.FieldByName('Количество_учеников').AsFloat;
sum3:=sum3+DM.ADOQuery4.FieldByName('Цена_за_кружок').AsFloat;

          Sheet.Cells[1,1] := 'Отчет за' + '  ' + label44.Caption;
          Sheet.Cells[a,1] := FieldByName('Наименование').AsString;
          Sheet.Cells[a,2] := FieldByName('Количество_часов').AsFloat;
          Sheet.Cells[a,3] := FieldByName('Количество_учеников').AsFloat;
          Sheet.Cells[a,4] := FieldByName('Цена_за_кружок').AsFloat;
          a := a + 1;
      Next;

          Sheet.Cells[a,1] := 'Итого';
          Sheet.Cells[a,2] := sum1;
          Sheet.Cells[a,3] := sum2;
          Sheet.Cells[a,4] := sum3;
  end;
  end;
end;

Если вставить

 Sheet.Rows[a].Font.Bold := True;

перед этой

Sheet.Cells[a,1] := 'Итого';

то выделяет все жирным со второй строки.
Спасибо большое за ссылку, я пыталась разобраться как именно для одной строки сделать, но потому не получилось сделать.

P.S. Спасибо за помощь. И извините за беспокойство.

[Gul'ka]

ВСе разобралась. Приношу свои извиния за беспокойство.
Добавила этот код перед

     
 with DM.ADOQuery17 do begin
    Close;
      begin
          Sheet.Rows[a].Font.Bold := True;

И все стало выделять как нужно.
Всем огромное спасибо за помощь.

[Serge_Bliznykov]

хорошо.