老师，一个单元格内容较长如何全部显示，也就是随内容长短自动行高？如果内容短，就在图一，如果太长就自动调到下页了，并且不能全部显示。谢谢！可以直接复制到命令窗口执行。

Dim doc As New PrintDoc \'创建一个报表
Dim rt As New prt.RenderTable \'创建一个表格对象
Dim rx As prt.RenderText \'定义一个文本对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'设置网格线
\'下面的代码向表格中填入值
For r As Integer = 0 To 5
    If r <> 1 Then
        For c As Integer = 0 To 5
            rx = New prt.RenderText \'创建一个新的文本对象
            rx.text = r & "," & c \'设置文本对象的内容
            rt.Cells(r, c).RenderObject = rx \'放置在单元格中
        Next
    End If
Next
\'创建一个新的文本对象,内容较长.
rx = New prt.RenderText
rx.text = "第一条 为了加强消毒管理,预防和控制感染性疾病的传播,保障人体健康,根据《中华人民共和国传染病防治法》及其实施办法的有关规定,制定本办法.  第二条 本办法适用于医疗卫生机构?消毒服务机构以及从事消毒产品生产?经营活动的单位和个人.  其他需要消毒的场所和物品管理也适用于本办法.  第三条 卫生部主管全国消毒监督管理工作.  铁路?交通卫生主管机构依照本办法负责本系统的消毒监督管理工作. 第二章  消毒的卫生要求第四条 医疗卫生机构应当建立消毒管理组织,制定消毒管理制度,执行国家有关规范?标准和规定,定期开展消毒与灭菌效果检测工作.  第五条 医疗卫生机构工作人员应当接受消毒技术培训?掌握消毒知识,并按规定严格执行消毒隔离制度.  第六条 医疗卫生机构使用的进入人体组织或无菌器官的医疗用品必须达到灭菌要求.各种注射?穿刺?采血器具应当一人一用一灭菌.凡接触皮肤?粘膜的器械和用品必须达到消毒要求.  医疗卫生机构使用的一次性使用医疗用品用后应当及时进行无害化处理.  第七条 医疗卫生机构购进消毒产品必须建立并执行进货检查验收制度.  第八条 医疗卫生机构的环境?物品应当符合国家有关规范?标准和规定.排放废弃的污水?污物应当按照国家有关规定进行无害化处理.运送传染病病人及其污染物品的车辆?工具必须随时进行消毒处理.  第九条 医疗卫生机构发生感染性疾病暴发?流行时,应当及时报告当地卫生行政部门,并采取有效消毒措施.  第十条 加工?出售?运输被传染病病原体污染或者来自疫区可能被传染病病原体污染的皮毛,应当进行消毒处理.  第十一条 托幼机构应当健全和执行消毒管理制度,对室内空气?餐(饮)具?毛巾?玩具和其他幼儿活动的场所及接触的物品定期进行消毒.  第十二条 出租衣物及洗涤衣物的单位和个人,应当对相关物品及场所进行消毒.  第十三条 从事致病微生物实验的单位应当执行有关的管理制度?操作规程,对实验的器材?污染物品等按规定进行消毒,防止实验室感染和致病微生物的扩散.  第十四条 殡仪馆?火葬场内与遗体接触的物品及运送遗体的车辆应当及时消毒.  第十五条 招用流动人员200人以上的用工单位,应当对流动人员集中生活起居的场所及使用的物品定期进行消毒.  第十六条 疫源地的消毒应当执行国家有关规范?标准和规定.  第十七条 公共场所?食品?生活饮用水?血液制品的消毒管理,按有关法律?法规的规定执行. 第三章  消毒产品的生产经营第十八条 消毒产品应当符合国家有关规范?标准和规定.  第十九条 消毒产品的生产应当符合国家有关规范?标准和规定,对生产的消毒产品应当进行检验,不合格者不得出厂.  第二十条 消毒剂?消毒器械?卫生用品和一次性使用医疗用品的生产企业应当取得所在地省级卫生行政部门发放的卫生许可证后,方可从事消毒产品的生产.  第二十一条 省级卫生行政部门应当自受理消毒产品生产企业的申请之日起一个月内作出是否批准的决定.对符合《消毒产品生产企业卫生规范》要求的,发给卫生许可证;对不符合的,不予批准,并说明理由.  第二十二条 消毒产品生产企业卫生许可证编号格式为:(省?自治区?直辖市简称)卫消证字(发证年份)第XXXX号.今天发生了地震,我还以为我头晕呢.上网才知道四川发生了7.8级的大地震"
rt.Cells(4,3).RenderObject = rx
doc.Preview() \'预览报表

此主题相关图片如下：qq图片20210127072517.png