自动调整最下方的一行的高度，以适用表高的代码应该怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

把窗口表最大打印行数去掉

Dim fdr1 As DataRow = DataTables("意和打印记录表").Find("日期 >= #" & d1.Date & "# and 日期 < #" & d1.Date.adddays(1) & "#")

if fdr1 isnot nothing then fdr1("次数") += 1

……

'针式打印机的连进连出打印:

e.Form.Page.LeftMargin = 0 '设置左边距

e.Form.Page.RightMargin = 0 '设置右边距

e.Form.Page.TopMargin = 0 '设置上边距

e.Form.Page.BottomMargin = 0 '设置下边距

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.PageSetting.Width = 218 '纸张宽度为218毫米

doc.PageSetting.Height = 94 '纸张高度为94毫米

doc.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码

Dim ndoc As new PrintDoc

Dim ra_1 As new prt.RenderArea

Dim ra_2 As new prt.RenderArea

Dim ra_3 As new prt.RenderArea

Dim flag As Boolean = False

For Each c As object In Doc.Body.Children

If c.Gettype.name Like "*RenderText*" Then

If flag = False Then

ra_1.Children.Add(c.Clone)

Dim nrt = c.clone

nrt.height = 0

ra_2.Children.Add(nrt)

Else

ra_2.Children.Add(c.clone)

End If

ElseIf c.Gettype.name Like "*RenderTable*" Then

ra_3.Children.Add(c.Clone)

Dim nrt = c.clone

nrt.height = 0

ra_2.Children.Add(nrt)

flag = True

End If

ndoc.Body.Children.Add(ra_3)

nDoc.PageHeader = ra_1 '作为页眉使用

ndoc.PageFooter = ra_2

ndoc.PageSetting.LeftMargin = 0 '设置左边距

ndoc.PageSetting.RightMargin = 0 '设置右边距

ndoc.PageSetting.TopMargin = 0 '设置上边距

ndoc.PageSetting.BottomMargin = 0 '设置下边距

ndoc.PageSetting.Width = 218 '纸张宽度为218毫米

ndoc.PageSetting.Height = 94 '纸张高度为94毫米

ndoc.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码

ndoc.Preview()

主题：自动调整最下方的一行的高度，以适用表高的代码应该怎么写？