Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Общее количество страниц в Репорте [D5, Paradox, ]

vopros © (2002-01-24 16:11:00)
Товарищи программисты, подскажите как в QReport сделать внизу страницы: стр 1 из 5.....Сам когда-то делал да давно не сталкивался...там его прогнать сначала надо..потом что-то присвоит, голова уже болит напомните кто...

vopros (2002-01-25 16:27:00) [1]
fox © Спасибо.

fox (2002-01-25 13:25:00) [2]
Пример
var
TotalPage : integer; {всего страниц в отчете}

.... {первый проход}
QuickRep1.Prepare;
TotalPage := QuickRep1.QRPrinter.PageCount;
QuickRep1.QRPrinter.Free;
QuickRep1.QRPrinter := nil;
.... {второй проход}
QuickRep1.Preview;
....
В форме с отчететом в нужном тебе месте уже формируй
строку вида стр 1 из 5.....

vopros (2002-01-24 17:05:00) [3]
fox © Теоретически я понимаю как это делать...кажеться это я описал выше..:
Report.prepare;
а здесь что чему присвоить?
Или поподробнее..

fox (2002-01-24 17:01:00) [4]
Общее число страниц будет известно только после того как отчет
будет сформирован. Для того что бы получить надпись вида
стр 1 из 5..., необходимо делать отчет двухпроходным. При
первом проходе запомнить общее кол-во страниц, а при втором
уже формировать надпись стр 1 из 5...

vopros (2002-01-24 16:57:00) [5]
>$hade © слушай ты такой умный наиди там тогда как узнать полное количество страниц отчета?

$hade (2002-01-24 16:38:00) [6]
Дык там же есть помоему компонент QRSysData...в нем в свойствах указать - отображать номер страницы...и все..

gek (2002-01-24 16:23:00) [7]
по моему так
TQRPreview.QRPrinter.PageCount и
TQRPreview.QRPrinter.PageNumber и
обрабатывать событие PageAvailable(Sender: TObject;
PageNum: Integer);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »