ارسال اطلاعات dbgrid برای چاپ توسط کیوک ریپورت

[imani1983]

با سلام خدمت دوستان عزیز
من یه کوئری نوشتم که نتایج جستجو رو در یک dbgrid نمایش میده - حالا مشکل من این هست که چطوری می تونم Dbgrid که حاوی اطلاعات جستجو شده است رو توسط کیوک ریپورت چاپ کنم.
ممنون میشم راهنمایی دقیق بکنید .

[soft-c]

adoquery11.Close;
adoquery11.SQL.Clear;
adoquery11.SQL.Add('select pooshesh.id,pooshesh.name,famil,fname,bdate,home,m obile,adress,tozih,kind,code.name from pooshesh inner join code on ( pooshesh.kind=code.id )and (code.id>=35 and code.id<=39 ) ');
adoquery11.Open;
ADOQuery11.Active:=True;
if adoquery11.RecordCount>=1 then
begin

QuickRep1.DataSet:=adoquery11;
QRDBText1.DataSet:=adoquery11;
QRDBText1.DataField:='name';
QRDBText2.DataSet:=adoquery11;
QRDBText2.DataField:='famil';
QRDBText3.DataSet:=adoquery11;
QRDBText3.DataField:='fname';
QRDBText4.DataSet:=adoquery11;
QRDBText4.DataField:='bdate';
QRDBText5.DataSet:=adoquery11;
QRDBText5.DataField:='home';
QRDBText6.DataSet:=adoquery11;
QRDBText6.DataField:='mobile';
QRDBText7.DataSet:=adoquery11;
QRDBText7.DataField:='adress';
QRDBText8.DataSet:=adoquery11;
QRDBText8.DataField:='kind';
QRDBText9.DataSet:=adoquery11;
QRDBText9.DataField:='tozih';
QuickRep1.preview;

end
else
ShowMessage('اطلاعاتی وجود ندارد');

به این کدها دقت کنید . شما باید ابتدا کنترل های لازم را بسازید و سپس یا نتایج جستجو مرتبط کنید . البته من این کار را به صورت دستی انجام دادم .

[MohsenB]

سلام


میتونید از کامپوننت PrintDAT (http://www.grebarsys.com/html/printdat_features.html)استفاده کنید .



موفق باشید