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

在窗口设计和打开预览时所画线条是正常的，但是在打印阅览时，竖线条就出现问题，不在绘制位置，请老师看看

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

经过测试，微调也不行，打印阅览没有问题了，窗口的线条就差一大截，

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

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()

收藏待处理

谢谢大红袍老师，另外请教  If c.Text.length > 100 Then，  这句代码怎样理解，输入内容的长度大于100与竖线的关系是什么。

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

撤销收藏，我还以为foxtable有问题呢