主题：这个画线条的是否是BUG

你微调一下长度就好，从像素转成毫米可能有一定的误差。

 我测试没问题，做个例子发上来。

Dim grp As WinForm.Panel = e.Form.Controls("Panel1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
For Each c As Object In doc.body.children
    If typeof c Is prt.RenderText Then
        If c.Text.length > 100 Then
            c.height = "auto"
        End If
    End If
Next
doc.Preview()

你设置 c.height = "auto" 的时候影响的，不设置就没问题。加入判断，是为了上面的textbox不执行那句代码。