QRSysData의 OnPrint Event에
if(Sender is TQRSysData) then
begin
if(iPage < (Sender as TQRSysData).ParentReport.PageNumber) then
iPage := (Sender as TQRSysData).ParentReport.PageNumber;
Value := 'Page : ' + Value + '/' + IntToStr(iPage);
end;
와 같이 코딩하면 어떨까요...
iPage는 전역변수이고
단점은 반드시 PreView를 먼저 해주어야 한다는 점이죠
그래서 PreView할때는 /양쪽이 똑같이 나오지만
출력할때는 정상적으로 나오죠..
정답은 아니지만 아쉬운데로 쓸수 있을것 같은데...