DELPHI的report打印的问题 100分。解决就结贴

ddvboy 2009-11-06 03:07:22

DELPHI的report打印的问题，我要打印一段话，中间包括从数据库里取的项目名称字段。字段长短不确定，希望这段段话根据项目名称的长短自动换行并对EDIT9的内容字体加黑加下划线。
例如：Form_jldy.QRLabel23.Caption:=' 我单位开标的'+edit9.text+'项目，已于'+SmalldateTOBig(DataModule1.ADO_zbjgb.fieldbyname('sj').asstring)+'**********************************************************************************************************************************************************************************，请务于。。。。。。】
以上打印的希望在打印界面里根据EDIT9和日期字段（sj）的长短自动换行。并且把EDIT9的内容字体加黑加下划线
只要是report的控件都行。因为以前的必须用REORT做。麻烦帮忙看看

...全文

205 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

金卯刀 2009-11-26

打赏
举报

不過粗體沒法這樣解決
建議這樣修改，不要把所有的字串都放在Form_jldy.QRLabel23.Caption
分開放，edit9.text，可以再放一個label來接收，這樣既可以畫下線也可以設定粗體

金卯刀 2009-11-26

打赏
举报

下劃線可以在給Caption賦值之前，執行此代碼：
edit9.Font.Style := [fsUnderLine]

纯冰糖 2009-11-12

打赏
举报

反正就是要在内容里加个空格就好了，对于汉字内容还是可以的。全是英文的就自动换行了。
我很少用QuickReport，不太适合中文报表。

纯冰糖 2009-11-12

打赏
举报

procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
Var
s,stemp :String ;
n :integer ;
begin
n:=8 ;
s :='' ;
stemp :=value ;
while (length(stemp) >n) do
Begin
s :=s + Copy(stemp,1,8) + #13 ;
stemp :=Copy(stemp,9,length(stemp)) ;
end ;
value :=s ;
end;

换行的地方加#13，或者加个空格，quickreport对汉字过长的支持的不太好。最好的是fastreport。