퀵리포트를 사용해서 프리뷰하고 페이지카운터를 구하고싶어여
페이지 카운터를 구하고 싶거던요 만약에 페이지가 3장이면 첫장에는
1/3 두번째 장은 2/3 세번재짱은 3/3으로 페이지 표시를 하고싶거던요
그냥 1 2 3 은 하는 방법은 찾았는데여 지금 상태가
QRSysData1 의 data에 qrsPageNumber 이로케 하니까 숫자로 1 , 2 3은
나와요 전 다른 방법이 하고싶습니다. 1/3 2/3 3/3 이로케 하고싶어여
자세이좀 알려주세여..찾아보니
여러싸이트서 찾아보니 이로케 하면 된다는디 이걸 어디다가 적어주나여...
이러케 하면 된다구만 했지 어디다가 적어주는곳은 알려주시질 않아서
모르겠네여
--------------------------------------------------------------
QuickRep1.Prepare;
QuickRep1.PrinterSettings.FirstPage := 1;
QuickRep1.PrinterSettings.LastPage := QuickRep1.QRPrinter.PageCount;
--------------------------------------------------------------
알려주시면 ㄳ하겠습니다.
QuickRep1.Prepare;
를 하고
QuickRep1.QRPrinter.PageCount 를 해주면 전체 페이지수가 나옵니다.
이경우 위두줄을 걍 아무 beforprint 이벤에 넣어서 하믄 0이 나오는데..
프로그램에서 인쇄버튼을 눌러 리포트를 열지않습니까?
이버튼이벤에서 값을 받아 넘기면 됩니다.(더 쉬운방법이 있겠지만 -_-여튼..)
예를들어
->인쇄버튼.click 이벤트
Application.CreateForm(TQuickRep1 ,QuickRep1);
with QuickRep1 begin
begin
prepare;
QsPage := intToStr(QRPrinter.PageCount);
Preview;
free;
end;
(위에서 QsPage는 QuickRep1에서 전역변수를 주었습니다.하면..
총페이지가 2페이지다 하면 QsPage에 2가 들어가있겠죠.)
위처럼 하시고
->QuickRep1 .beforPrint 이벤트에
전체페이지나올라벨.caption := QsPage; 하시믄 되겠죵 ^^
전체페이지나올라벨.caption := intTOStr(QuickRep1 .pagenumber)+' / ' + QsPage;
이상 호좁 다크래머였슴당 +_+