moon wrote:

> 리포터에서 그룹핑을 했습니다.

> 근데 제가 지금 한것은 그룹이 되긴 되는데

> 제가 하고 싶은것은 그룹마다 페이지씩 보여주는것 입니다.

> 그룹된 데이타가 많던 적던간에 다음 그룹은 담페이지에 나오게 할려면 어떻게 해야 하나요

> 꼭좀 답변 부탁드립니다.

> 그럼...



저는 TBookmark와 ForceNewPage 로 문제를 해결했습니다....



디테일밴드 AfterPrint에서 첫 자료의 그룹핑할 필드를 BookMark에 저장을 해놓습니다.

두번째 자료는 BeforePrint에서 두번째 자료의 그룹핑할 필드와 BookMark에 저장해놓 은 값과 비교를 합니다...

그럼 같으면 같은 페이지에... 다르면 다른 페이지에 출력을 하겠지요.....



도움이 되었으면 합니다...





procedure TForm1.Band1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

var

MyBookmark: TBookmark;



begin



MyBookmark := Query1.GetBookmark;



if Query1그룹핑한필드명.value <> BeforeTmpStr then

Band1.ForceNewPage := True

else

Band1.ForceNewPage := False;



Query1.GotoBookmark(MyBookmark);

Query1.FreeBookmark(MyBookmark);



end;



procedure TForm1.Band1AfterPrint(Sender: TQRCustomBand;

BandPrinted: Boolean);

begin

BeforeTmpStr := Query1그룹핑한필드명.Value;

end;