请问，这个上面这个打印窗口打印出来的内容，中间的“出库明细表”的边框能否固定啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

请问，这个上面这个打印窗口打印出来的内容，中间的“出库明细表”的边框能否固定啊？

此主题相关图片如下：555.jpg

打印测试如上：

单行行高变大后，表的边框却也变高了，

求：怎样调整成表的边框保持不变的？

但是，实际操作上，需要用户手动调整各行的高度，因为有些行的列内容特别长，需要多次换行导致单行订单的行高变大，

有没有办法，让窗口表的边框不变，只显示窗口表的边框范围内的数据，若是某行的内容，在窗口表的边框内看不到了，打印时也不予显示，这样可以做到吗？

Dim d1 As Date = e.Form.Controls("出库日期").Text

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

fdr1("次数") += 1

For Each r As Row In Tables("意和打印窗口_出库明细表")

r("出库编号") = e.Form.Controls("出库编号").Text

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

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 '如果纸张的宽度超过高度,要加上这行代码

'添加打印内容

'doc.Print()

doc.Preview()

Dim fnt As New Font("黑体",9,FontStyle.Bold)

CurrentTable.Font = fnt

Dim t = Tables("意和打印窗口_出库明细表").grid

For Each r As object In t.Rows

r.height = 50

Forms("意和打印窗口").Close()

Dim fnt1 As New Font("宋体",9,FontStyle.Regular)

CurrentTable.Font = fnt1

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

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

这是打印效果，边框似乎还是不能固定？

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

这是固定最少行数和最大行数为6时，打印框中拉大行高后的打印效果

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

只是固定了行高，对整体的表边框的固定，没有作用？

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

第一行需要显示打印出来的备注列，内容很长，结果行高被限制了，还是打不出来

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

的确已经平均分配行高了，但窗口表边框下面的需要打印的内容都跑到下一页了？

主题：请问，这个上面这个打印窗口打印出来的内容，中间的“出库明细表”的边框能否固定啊？