- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 还是控件打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83540)
-- 发布时间：2016/4/12 10:06:00
-- 还是控件打印问题
再次请教老师，我在PANEL面板上做电子表格，打印全部控件（包括线条），现在修改了代码参数和设置了控件打印为TRUE,
面板中有加高的备注TEXT、表和BUTTON等控件
现在控件打印还存在button2不显示 和线条打印位置变化的问题，请老师指导指导。
-- 发布时间：2016/4/12 10:24:00
--
1、按钮本来就是不允许打印的，你改成label吧；
2、
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试eee.table |
3、只能这样了，无法再修改。
-- 发布时间：2016/4/12 10:31:00
--
我原来是用LABLE 的，我用e.Form.Controls("Label1").Text = "1" & vbcrlf & "2" & vbcrlf & "3"的形式放在打印按钮CLIK，好像也没显示竖向文字，是否我的代码写的有错
-- 发布时间：2016/4/12 10:36:00
--
用label，属性->自动大小->False，然后把宽度高度调整一下，就是竖向的了。
-- 发布时间：2016/4/12 12:42:00
--
根据老师的指导，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编辑过]
-- 发布时间：2016/4/12 12:48:00
--
直接用表格。去学一下专业报表。
http://www.foxtable.com/help/topics/1200.htm