Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表如何让单元格内的内容自动缩小填充？


  共有4451人关注过本帖树形打印复制链接

主题：专业报表如何让单元格内的内容自动缩小填充？
帅哥哟，离线，有人找我吗？
scott518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2488 威望：0 精华：0 注册：2011/11/4 17:32:00 		专业报表如何让单元格内的内容自动缩小填充？  发帖心情 Post By：2014/1/13 20:49:00 [只看该作者]

如题，当单元格中的字体较多时，不自动换行，只是缩小填充。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/1/13 21:10:00 [只看该作者]

没有简便的方法。

如果要做，你可以设定几个等级，根据不同的字数，设定不同的font

Dim doc As New PrintDoc '创建一个报表
Dim rt As New prt.RenderTable '创建一个表格对象
Dim rx As prt.RenderText '定义一个文本对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Width = 120 '设置表格的宽度为120毫米
rt.Height = 100 '设置表格的高度为100毫米
rt.Style.GridLines.All = New prt.LineDef '设置网格线类型

rt.cols(0).Width = 50
rx = new prt.RenderText
rx.Style.Font = new Font("宋体", 7)
rx.Text = "快递费加快skfjskfjkasjfklsjdjfksf递费就"

rt.Cells(0, 0).RenderObject = rx

rt.Cells(0, 1).Text = "快递费加快递费就"

doc.Preview() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
scott518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2488 威望：0 精华：0 注册：2011/11/4 17:32:00 		  发帖心情 Post By：2014/1/13 22:15:00 [只看该作者]

谢谢有点甜，没想到原来要这么复杂。

 回到顶部
帅哥哟，离线，有人找我吗？
包头123
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1049 积分：8150 威望：0 精华：0 注册：2011/10/11 11:13:00 		  发帖心情 Post By：2014/1/14 11:01:00 [只看该作者]

这个需求有时也会发生的。

 回到顶部
帅哥哟，离线，有人找我吗？
wjlwdy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：262 威望：0 精华：0 注册：2014/1/12 0:21:00 		  发帖心情 Post By：2014/1/14 16:12:00 [只看该作者]

学习了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 4 次数据查询