Здравствуйте, 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. Не подскажите как с этим бороться?
