以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助].foxtr檔列印問題  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81927)
--  作者：JoyGum
--  发布时间：2016/3/8 22:41:00
--  [求助].foxtr檔列印問題
目錄樹檔顯示的組織架構是否可以列印？
--  作者：大红袍
--  发布时间：2016/3/8 23:18:00
--  

参考代码

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim doc As New PrintDoc \'定义一个报表
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim rt As New prt.RenderText \'定义一个文本对象
    rt.Text = "".PadLeft(nd.Level * 8) & nd.Text
    doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'预览
--  作者：JoyGum
--  发布时间：2016/3/9 8:27:00
--  
感恩啊！太感謝大紅袍老師了！