如何设置单元格样式，使某列较长内容自动缩小以适应单元格宽度？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
'下面的代码向表格中填入值
For r As Integer = 0 to 5
    For c As integer = 0 to 5
        rt.Cells(r, c).Text = r & "," & c '
    Next
Next
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right '所有文本内容靠右对齐
rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '唯独第一列内容居中
doc.Preview() '预览报表

主题：如何设置单元格样式，使某列较长内容自动缩小以适应单元格宽度？