Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
ВнизОбщее количество страниц в Репорте Найти похожие ветки
← →
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.....
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c