Подскажите как в сабжевом отчете сделать номер страницы вида "1 из 20" как узнать количество страниц в отчете. Что-то я нигде найти не могу этого.
В любом генераторе отчетов, такое можно сделать только за счет двух проходов, иначе никак
"noesis" <forum@rsdn.ru> сообщил/сообщила в новостях следующее:
news:341066@news.rsdn.ru...
From: noesis
Подскажите как в сабжевом отчете сделать номер страницы вида "1 из 20" как узнать количество страниц в отчете. Что-то я нигде найти не могу этого.
Оценить
Posted via RSDN NNTP Server 1.7 beta
Здравствуйте, noesis, Вы писали:
N>Подскажите как в сабжевом отчете сделать номер страницы вида "1 из 20" как узнать количество страниц в отчете. Что-то я нигде найти не могу этого.
procedure Document_Print;
begin
with TfmQR_Form.Create(Application) do
try
QR_Report.Prepare;
m_iPagesCount := QR_Report.QRPrinter.PageCount;
QR_Report.QRPrinter.Free;
QR_Report.QRPrinter := nil;
QR_Report.Preview;
finally
Free;
end;
end;
m_iPagesCount — свойство формы TfmQR_Form
В подвале отчета делаешь m_qrlPagesCount:TQRLabel и прописываешь для нее
procedure TfmQR_Form.m_qrlPagesCountPrint(sender: TObject;
var Value: String);
begin
Value := Format('Страница %d из %d ', [QR_Report.PageNumber, m_iPagesCount]);
end;
... << RSDN@Home 1.1 beta 1 >>
Здравствуйте, XCiber, Вы писали:
XC>Здравствуйте, noesis, Вы писали:
N>>Подскажите как в сабжевом отчете сделать номер страницы вида "1 из 20" как узнать количество страниц в отчете. Что-то я нигде найти не могу этого.
XC>XC>procedure Document_Print;
XC>begin
XC> with TfmQR_Form.Create(Application) do
XC> try
XC> QR_Report.Prepare;
XC> m_iPagesCount := QR_Report.QRPrinter.PageCount;
XC> QR_Report.QRPrinter.Free;
XC> QR_Report.QRPrinter := nil;
XC> QR_Report.Preview;
XC> finally
XC> Free;
XC> end;
XC>end;
XC>
XC>m_iPagesCount — свойство формы TfmQR_Form
XC>В подвале отчета делаешь m_qrlPagesCount:TQRLabel и прописываешь для нее
XC>XC>procedure TfmQR_Form.m_qrlPagesCountPrint(sender: TObject;
XC> var Value: String);
XC>begin
XC> Value := Format('Страница %d из %d ', [QR_Report.PageNumber, m_iPagesCount]);
XC>end;
XC>
Привет! Работая в Borland Developer Studio CBuilder, столкнулся с проблемой:
Form2->QuickRep->Prepare();
int count = Form2->QuickRep->QRPrinter->PageCount;
QRPrinter остается NULL. Не подскажите как с этим бороться?
