Q&A

  • 페이지카운터를 구하고 싶습니다.
퀵리포트를 사용해서 프리뷰하고 페이지카운터를 구하고싶어여
페이지 카운터를 구하고 싶거던요 만약에 페이지가 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;
--------------------------------------------------------------
알려주시면 ㄳ하겠습니다.
1  COMMENTS
  • Profile
    다크래머 2003.11.22 02:27
    안녕하세요.
    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;

    이상 호좁 다크래머였슴당 +_+