根据老师的指导，LAGEL问题解决了，
现在单页宽度值必须要设置的大在一页上才能正常显示，但是这个电子表格如果画线条，又要考虑某几个TEXTBOX需要多行文本都能在打印时显示出来，其中还要加
入另外一个TABLE表，这样的打印在控件打印上很难实现，主要是线条不会跟随TEXTBOX内容的多少进行向下调整，面板也很难控制在A4幅面的分页打印。
请教老师，这样的电子表格，专业报表能打印面板控件吗？如果要实现在面板控件上的“画线+表格+多行文本内容”的形式，专业报表能实现吗？
另外，面板控件“画线+表格+多行文本内容”能保存为WORD吗？
这些想法都是想实现对面板控件内的电子表格形式进行打印。
以下打印代码无法实现
e.Form.Page.PaperKind = 9 '纸张类型改为A4
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
e.Form.Page.Width = 210 '纸张宽度为
e.Form.Page.Height = 350 '纸张高度为
Dim grp As WinForm.Panel = e.Form.Controls("Panel3")
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()
[此贴子已经被作者于2016/4/12 12:43:58编辑过]
加好友 
发短信
Post By：2016/4/12 10:06:00 [显示全部帖子]
