چاپ با کمک quickreport دلفی

[farzad_az_shiraz]

سلام
من می خوام اطلاعات یه جدول را پرینت بگیرم.برای این کار من مییام از quickreport دلفی استفاده میکنم به صورت زیر :

توی قسمت detail با استفاده از Qrshap ستون ها را می سازم و بین هر ستون یه Qdbtext میزارم ولی اگه اطلاعات یه فیلدم بیشتر از آن فضایی باشه که من در نظر گرفتم به هم میریزه.
می دونم این کارم اشتباه است ممنون میشم کمکم کنید.

[amin_alexi]

QrDbTextرو بردار QRLable بزار و جور که میگم تنظیم کن !!
AutoSize و AutoStreach رو False کن
و عرض QrDBText رو یه مقدار ثابت به اندازه جایی که در نظر گرفتی !!!
این کار باعث میشه بیشتر اگه متن زیاد شد عرض بیشتر از اونی که می خوای نشه ...
اما واسه اینکه ادامه متن میاد پایین و ارتفاع DetailBand رو خراب می کنه باید یه کار دیگه کرد ...
باید کاری کرد که Height مربوط به DetailBand فقط برای اون سطر بزرگ بشه !!
من این روش رو به کار میبرم ...
یه Lable روی فرم می زارم و روال زیر رو به کار می گیرم ...
تو Event : DetailBandBeforePrint


S:=AdoQry.FieldByName('FldName').AsString;
If (S<>'') Then
Begin
If Not (S[Length(S)] In [#10,#13]) Then S:=S+#10;
End;
Label1.Font.Assign(QRLable1.Font);
Label1.Width:=QRLable1.Width;
Label1.Caption:=S;
Label1.Refresh;

C1.Top:=0;C1.Size.Height:=Label1.Height*2.54;

C1 یک QRShape که باید طولش تغییر کنه !!!
دیگه بازم اگه سوالی بوود بپرس ....
خودت هم اگه یه زرره روش کار کنی به نتیجه می رسی ...

[farzad_az_shiraz]

ممنون چکش میکنم ببینم چی میشه.