Delphi и Excel

[PTyTb32]

Здравствуйте, задача такая сформировать в Delphi отчет на основании данных из БД, и соответственно его распечатать, весь отчет готов, но я столкнулся с проблемой, что если количество строк с шапкой 51, то строка с итоговым подсчетом будет распечатана на новой странице, как можно предотвратить это, скажем перенося на новую страницу еще одну строчку (расположенную выше). и еще вопросик, можно ли что то сделать, что бы Delphi не подчеркивал красным методы используемые для Excel (тип переменной variant) заранее благодарю, за уделенное время.

[gotfer]

У меня точно такая же проблема, все еще ищу толковый ответ на этот совсем непростой вопрос, подскажите, кто в силах!

[Аватар]

В ActiveSheet вроде можно добавить HPageBreak. Не добавлял, не было нужды это использовать. Там есть какие-то нюансы, и тот же excel может проигнорировать это дело. Или программно пустые строки в таблицу вставлять. В любом случае придется высоту страницы высчитывать

[Rockot]

Всё просто считаем сколько занимает ваш header и футер расчитываем сколько мы запишем между ними, расчитываем влезет ли если не влезет делаем отступ переходим на другую страницу, простая математика.

const list = 40;
var
R: integer;
begin
R := ( ( R div list ) + 1 )* list + 1;
end;

R (row) - текущая строка

[PTyTb32]

Сообщение от Rockot

Всё просто считаем сколько занимает ваш header и футер расчитываем сколько мы запишем между ними, расчитываем влезет ли если не влезет делаем отступ переходим на другую страницу, простая математика.

const list = 40;
var
R: integer;
begin
R := ( ( R div list ) + 1 )* list + 1;
end;

R (row) - текущая строка

Rackot, а что если 1 и ли более строк изменят свой размер? в этом случае количество строк на страницу изменится и ваш код будет работать не корректно

[BARNEY]

А в цикле пробежаться и посчитать не?

[PTyTb32]

мне снова изменили форму отчета, ну основное я понял что нет граници печатного листа))))

[PTyTb32]

все равно не выходит определить где новый лист...пробывал даже так

 for j := 1 to i do
   begin
      c3:=c3+ap.rows[j].RowHeight;//в с3 кладем высоту готовых строк
   end;
 if ((list*474) - c3) mod 474 = 0 then // проверяем кратность суммы всех строк высоте листа
   begin
     RepHader(i); //рисуем шапку в начиная от строки i
     RepAddRow(i+2); // добавлем новую строку с данными под шапку
   end
   else
     RepAddRow(i);//добавляем новую запись в строку i
end;

но все равно работает не корректно, list увеличивается на 1 каждый вызов процедуры RepHader(i);