운영체제는 윈도우즈98이고 델파이 4.0을 사용하고 있습니다.
밴드는 group1과 band1을 설정한 상태입니다.
group1에 학년, 반, 학교가 바뀌게 되면 뉴페이지를 설정하고 출력을 하려하고 있는데 잘 안되고 있습니다. 스택오버플로우가 발생하고 preview를 했을경우에는 drawing을 할 수 없다는 메시지가 뜹니다.
아래는 group1과 퀵리포트의 이벤트에 코딩한 내용입니다. 제발 고수님들의 많은 조언 부탁드리겠습니다.
procedure TqrPClass.qrPClassBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
with dmExam do
begin
tmpGrade := qryReport.FieldByName('GRADE').AsString;
tmpSCode := qryReport.FieldByName('SCODE').AsString;
tmpClass := qryReport.FieldByName('CLASS').AsString;
end;
end;
procedure TqrPClass.QRGroup1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
with dmExam do
begin
if (tmpGrade <> qryReport.FieldByName('GRADE').AsString) or
(tmpScode <> qryReport.FieldByName('SCODE').AsString) or
(tmpClass <> qryReport.FieldByName('CLASS').AsString) then
begin
qrPClass.NewPage;
tmpGrade := qryReport.FieldByName('GRADE').AsString;
tmpSCode := qryReport.FieldByName('SCODE').AsString;
tmpClass := qryReport.FieldByName('CLASS').AsString;
end;
end;
end;
안녕하세요..
제가 봤을때에는 혹시 Group Footer가 없는게 아닌지요?
Group Header와 Group Footer가 있어야 될것 같은데요..
글구 Group Footer 에서 After Print에서 NewPage를 하시면 될 것 같네요..
그럼 즐프하세염...
노파심에 Group Header와 Group Footer 연결은 Group Header에서 Footer 밴드를 연결하시면 됩니다..