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

固定了行高，固定打印6行，那么整个表格的高度，就固定了啊。

代码改成这样，如果还理解不了，发实例上来

Dim t = Tables("意和打印窗口_出库明细表").grid
For i As Integer = Tables("意和打印窗口_出库明细表").HeaderRows To t.Rows.count-1
    Dim r = t.Rows(i)
    r.height = 20
Next

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

1、不要设置固定6行。

2、根据你表格的行数，平均分配高度

Dim t As Table = Tables("意和打印窗口_出库明细表")
Dim tg = t.grid
Dim n = tg.height / t.Rows.count
For i As Integer = 0 To t.Rows.count-1
    Dim r = tg.Rows(i+t.HeaderRows)
    r.height = n
Next

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

改成

Dim t As Table = Tables("意和打印窗口_出库明细表")
Dim tg = t.grid
Dim n = (tg.height - 40)  / t.Rows.count
For i As Integer = 0 To t.Rows.count-1
    Dim r = tg.Rows(i+t.HeaderRows)
    r.height = n
Next

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