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

表格的行数不确定、行高不确定，表格的高度，是无法固定的，固定了，就必须调整各行的行高。

你不允许别人调整行高，不就行了？

http://www.foxtable.com/webhelp/scr/1370.htm

打印之前，先修改各行的高度，再打印。如

Dim t = Tables("表A").grid
For Each r As object In t.Rows
    r.height = 50
Next

设置固定行数

先设置行高，再生成打印。

固定了行高，固定打印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()