Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Общее количество страниц в Репорте 


vopros   (2002-01-24 16:11) [0]

Товарищи программисты, подскажите как в QReport сделать внизу страницы: стр 1 из 5.....Сам когда-то делал да давно не сталкивался...там его прогнать сначала надо..потом что-то присвоит, голова уже болит напомните кто...



gek   (2002-01-24 16:23) [1]

по моему так
TQRPreview.QRPrinter.PageCount и
TQRPreview.QRPrinter.PageNumber и
обрабатывать событие PageAvailable(Sender: TObject;
PageNum: Integer);



$hade   (2002-01-24 16:38) [2]

Дык там же есть помоему компонент QRSysData...в нем в свойствах указать - отображать номер страницы...и все..



vopros   (2002-01-24 16:57) [3]

>$hade © слушай ты такой умный наиди там тогда как узнать полное количество страниц отчета?



fox   (2002-01-24 17:01) [4]

Общее число страниц будет известно только после того как отчет
будет сформирован. Для того что бы получить надпись вида
стр 1 из 5..., необходимо делать отчет двухпроходным. При
первом проходе запомнить общее кол-во страниц, а при втором
уже формировать надпись стр 1 из 5...



vopros   (2002-01-24 17:05) [5]

fox © Теоретически я понимаю как это делать...кажеться это я описал выше..:
Report.prepare;
а здесь что чему присвоить?
Или поподробнее..



fox   (2002-01-25 13:25) [6]

Пример
var
TotalPage : integer; {всего страниц в отчете}

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



vopros   (2002-01-25 16:27) [7]

fox © Спасибо.




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.03 c
1-66620           Nest                  2002-02-06 16:08  2002.02.21  
Подскажите, как фокус поставить на , скажем вторую колонку DBGRIDа?


7-66687           VIB_G                 2001-10-18 18:34  2002.02.21  
Поиогите пожалуйста


1-66567           MAcroS                2002-02-05 16:10  2002.02.21  
Запустить EXEшник...


6-66640           Ihor                  2001-11-30 17:58  2002.02.21  
Версия ВинСок.


1-66604           Tadeush               2002-02-06 13:04  2002.02.21  
Как развернуть строку.