이부분이 quickrep1 화면에는 필드 JAddress가 나오는데, 인쇄하면 안나옵니다.



if form1.query1.fieldbyname('WhereDM').asstring = 'J' then

qrlabel1.caption := form1.query1.fieldbyname('JAddress').asstring

else

qrlabel1.caption := form1.query1.fieldbyname('HAddress').asstring;



(quickrep1.bandtype은 rbdetail이고요, detail영역에다가 qrlabel을 배치했고요

'' .dataset은 빈문자열 이에요)



부산시 강서구

홍길동

604-822



부산시 부산진구 <== 바로 이부분, quickrep1엔 나오는데, 인쇄하면 안나옴.

홍길동

614-122



.. 이런식으로 나와야 하는데요..



procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);



begin

moredata := count < form1.query1.RecordCount;



if moredata then

begin



if form1.query1.fieldbyname('WhereDM').asstring = 'J' then

qrlabel1.caption := form1.query1.fieldbyname('JAddress').asstring

else

qrlabel1.caption := form1.query1.fieldbyname('HAddress').asstring;

qrlabel2.caption := form1.query1.fieldbyname('Name').asstring;

qrlabel3.caption := form1.query1.fieldbyname('HZipCode').asstring;



form1.query1.next;

inc(count);

end;





end;



procedure TForm2.Button1Click(Sender: TObject);

begin

quickrep1.preview;



end;



procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

form1.query1.first;

count := 0;

end;





(form1에서 하는 일)



Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('Select *from "Client.db" Code');

Query1.SQL.Add('where Code between "' + trim(edit1.text) + '" and "' + trim (edit2.text) + '"');

Query1.Open;