在我的报表中,有一个字段的长度很长,打印报表时需使这个字段自动回行,望各位高手赐教!
如表的内容如下:
姓名 年龄 性别 毕业院校 家庭住址 备注
王珊 30 女 北京大学 北京市东城区小马路1号街坊3号楼2单元402 DFGJHDFGHJDFGHJDFGJHSDFGDJGJHDFGJHDFGJDFJGDFJGJDFGJHDSGJDFGJHSDFJGSDJFGJHSDFJ
李四 21 男 天津大学 天津市河东区程林庄道43号 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
王五 35 男 河北大学 内蒙古呼和浩特市新城区哲盟路80号 ASDFDASFGDFGSDFGSFDGSDFGSDFGSDFHGFDGHFGJHFGJHFGJH
.......设计的报表如备注字段过长时,让此字段自动回行.
如表的内容如下:
姓名 年龄 性别 毕业院校 家庭住址 备注
王珊 30 女 北京大学 北京市东城区小马路1号街坊3号楼2单元402 DFGJHDFGHJDFGHJDFGJHSDFGDJGJHDFGJHDFGJDFJGDFJGJDFGJHDSGJDFGJHSDFJGSDJFGJHSDFJ
李四 21 男 天津大学 天津市河东区程林庄道43号 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
王五 35 男 河北大学 内蒙古呼和浩特市新城区哲盟路80号 ASDFDASFGDFGSDFGSFDGSDFGSDFGSDFHGFDGHFGJHFGJHFGJH
.......设计的报表如备注字段过长时,让此字段自动回行.
解决方案 »
- delphi中调用XMLRPC的问题
- IP4000 wwDBGrid 数据导出为 excel 问题
- 求用DELPHI实现当前计算机运行的程序标题
- 请教如何连接sybase
- 香港電台的百萬富翁節目,把香港台灣說成是一個國家
- 谁有 《delphi 6 入门经典》 这本书呀?
- 请问类似这样的字符串Sep 18 2002 10:00AM怎么样转换成日期性的类型?
- 有谁用过tAdoTable.clone(tAdoTAble) 方法吗,请教一下
- 请问我做一个像图片里的图表用Tchart的话要怎么做呀?
- 一个有关存储过程的IF语句
- 请教一下大家 在线等
- 怎样用Delphi 开发一个像Tencent聊天室一样的程序??《!!!加急!!!》
wordwarp:=true;
autostretch:=true;
然后在qrlabel.onprint中写:
value:='AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA';
或:
value:=fieldbyname('fieldname').asstring;
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
self.QRRichText1.Lines.Text:='aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
end;
autosize:=false;
autostretch:=true;
将控件宽度调整到需显示的宽度procedure TForm2.QRDBText3Print(sender: TObject; var Value: String);
begin
value:=self.sp(22,Value);//功能:对Value处理,在换行处插入#13换行符
end; 以上方法一定行,我试过