固定了行高,固定打印6行,那么整个表格的高度,就固定了啊。
代码改成这样,如果还理解不了,发实例上来
Dim t = Tables("意和打印窗口_出库明细表").gridFor i As Integer = Tables("意和打印窗口_出库明细表").HeaderRows To t.Rows.count-1 Dim r = t.Rows(i) r.height = 20Next
Dim doc As PrintDoc = e.Form.GernatePrintDoc()