Dim rt2 As New prt.RenderTable() '定义一个表格对象
rt2.BreakBefore = prt.BreakEnum.Page '打印之时另起一页
rt2.style.Padding.Top = 2
rt2.Style.GridLines.All = New prt.Linedef '设置网格线
rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt2.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
doc.Body.Children.Add(rt2) '将表格对象加入到报表中
For Each dr As Row In tb.Rows
rt2.Cells(i, 0).Text = dr("单号")
rt2.Rows(i).Height = "AUTO" '这个地方设置为自动行高 Output.Show(rt2.Rows(i).Height) '显示结果为AUTO，想取到实际的高度
想实现如果高度不满足12则设置为12
IF rt2.Rows(i).Height < 12 THEN
rt2.Rows(i).Height = 12
END IF
[此贴子已经被作者于2023/11/29 19:23:37编辑过]
加好友 
发短信
Post By：2023/11/29 9:42:00 [只看该作者]
