Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Разрыв страницы в Excel   Найти похожие ветки 

← →
SerSar   (2004-04-20 11:46) [0]

Как программно вычислить разрыв стр-цы?
Вычисляю сам по счетчику кол-ва строк и принудительно делаю разрыв.
if i=57*NumList then begin
  ExcelAppl.Range["A"+IntToStr(i-1)+":"+"E"+IntToStr(i-1)].Borders[4].LineStyle := 1;
  ExcelAppl.Range["A"+IntToStr(i-1)+":"+"E"+IntToStr(i-1)].Borders[4].Weight := 2;
  ExcelAppl.Rows[i].PageBreak := 1;
  NumList := NumList + 1;
end;
Все работает. Но данный способ не совсем красив, т.к. некоторые ячейки печатаются на несколько строк, и страницы получаются не одинаковыми, то короче, то длинее.
Нельзя ли узнать наступление события "Конец страницы" и тогда по нему делать форматирование.
Спасибо.

---

← →
SerSar   (2004-04-20 11:46) [0]

Как программно вычислить разрыв стр-цы?
Вычисляю сам по счетчику кол-ва строк и принудительно делаю разрыв.
if i=57*NumList then begin
  ExcelAppl.Range["A"+IntToStr(i-1)+":"+"E"+IntToStr(i-1)].Borders[4].LineStyle := 1;
  ExcelAppl.Range["A"+IntToStr(i-1)+":"+"E"+IntToStr(i-1)].Borders[4].Weight := 2;
  ExcelAppl.Rows[i].PageBreak := 1;
  NumList := NumList + 1;
end;
Все работает. Но данный способ не совсем красив, т.к. некоторые ячейки печатаются на несколько строк, и страницы получаются не одинаковыми, то короче, то длинее.
Нельзя ли узнать наступление события "Конец страницы" и тогда по нему делать форматирование.
Спасибо.

---

← →
CDF   (2004-04-20 14:50) [1]

Попробуй посчитать высоту всех столбцов.

---

← →
CDF   (2004-04-20 14:50) [1]

Попробуй посчитать высоту всех столбцов.

---

← →
CDF   (2004-04-20 14:59) [2]

В смысле всех строк....

---

← →
CDF   (2004-04-20 14:59) [2]

В смысле всех строк....

---

← →
Dmitriy O. ©   (2004-04-20 16:24) [3]

А зачем ?

---

← →
Dmitriy O. ©   (2004-04-20 16:24) [3]

А зачем ?

---

← →
Nikolay M. ©   (2004-04-20 16:31) [4]

У ActiveSheet свойства .HPageBreaks(номер страницы).Location или .PageSetup.PrintArea спасут гиганта мысли? :)

---

← →
Nikolay M. ©   (2004-04-20 16:31) [4]

У ActiveSheet свойства .HPageBreaks(номер страницы).Location или .PageSetup.PrintArea спасут гиганта мысли? :)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.03 c