- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 有功能类似richTextBox，但又可以打印的文本控件吗 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40200)
-- 发布时间：2013/9/11 20:36:00
-- 有功能类似richTextBox，但又可以打印的文本控件吗
如题
-- 发布时间：2013/9/11 21:07:00
--
没人知道吗？“有点甜”老师在吗？
-- 发布时间：2013/9/11 21:17:00
--
呵呵，很明显不能打印的哦。你可以这样处理一下嘛，要打印什么内容都可以。
-- 发布时间：2013/9/11 21:37:00
--
太谢谢你了！
-- 发布时间：2013/9/11 22:38:00
--
有点甜老师，我在窗口设置了分页打印，我按你刚刚的方法插入的专业报表的一个文本后它跑到了最后一页的位置去了，有方法将插入的专业报表的文本显示在第一页吗？
-- 发布时间：2013/9/11 22:43:00
--
直接上例子。
-- 发布时间：2013/9/11 22:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.table |
-- 发布时间：2013/9/11 23:06:00
--
如下代码
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As New PrintDoc \'定义一个报表
Dim idx As Integer = 1
For Each o As object In Doc.Body.Children
ndoc.Body.Children.Add(o.clone)
If idx = 1 Then
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
rt.X = 100
rt.Y = 100
ndoc.Body.Children.Add(rt) \'将文本对象加入到报表
End If
Next
ndoc.Preview()
[此贴子已经被作者于2013-9-11 23:06:36编辑过]
-- 发布时间：2013/9/11 23:12:00
--
如果有三页要在第二页显示就把Dim idx As Integer = 1该Dim idx As Integer = 2是吗？
-- 发布时间：2013/9/11 23:21:00
--
以下是引用yuyijun2在2013-9-11 23:12:00的发言：
如果有三页要在第二页显示就把Dim idx As Integer = 1该Dim idx As Integer = 2是吗？
这里的idx算的是控件的顺序，比如你第一页有4个控件，如果要在第二页值的话，就要设置成5或者5以上