专家坐堂-专业报表如何让单元格内的内容自动缩小填充？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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() \'预览报表