try
QRCompositeReport1.Preview;
finally
for i := 0 to QRCompositeReport1.Reports.Count -1 do
begin
TQuickRep(QRCompositeReport1.Reports.Items[i]).Free;
end;
end;
이렇게 출력하시고
AddReports 이벤트에서
procedure TfrmMain.QRCompositeReport1AddReports(Sender: TObject);
begin
//
QRCompositeReport1.Reports.Add( (aaaa1);
QRCompositeReport1.Reports.Add( (aaaa2);
end;
라고 생성하신 리포트를 넣어주시면 됩니다.
형식이 많이 달라서 리포트 하나로 못만드는데 그걸 꼭 하나의 리포트로
봐야 한다면 TQRCompositeReport 을 쓰시면 됩니다.
예전에는 에러가 좀 낫었는데 요즘은 괜찮은거 같더군요.
지켜줘야 할것은 여기에 포함되는 TQuickRep 들이 형식이 같아야
합니다.. 다르면 출력이 안되거나 이상하게 되어 버리거든요.. ^^
try
QRCompositeReport1.Preview;
finally
for i := 0 to QRCompositeReport1.Reports.Count -1 do
begin
TQuickRep(QRCompositeReport1.Reports.Items[i]).Free;
end;
end;
이렇게 출력하시고
AddReports 이벤트에서
procedure TfrmMain.QRCompositeReport1AddReports(Sender: TObject);
begin
//
QRCompositeReport1.Reports.Add( (aaaa1);
QRCompositeReport1.Reports.Add( (aaaa2);
end;
라고 생성하신 리포트를 넣어주시면 됩니다.
이 이벤트는 콤포지트의 프리뷰 또는 프린트 를 실행할때 발생합니다.
물론 이 이벤트가 발생하기 전에 두개의 aaa1, aaa2 의 리포트는 이미생성
되어 잇어야 겠죠?
원하시는게 이거 맞는지 모르겠네요..
그럼 즐거운시간 되세요.