以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现 打印目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96263)
--  作者：农村人
--  发布时间：2017/2/16 17:04:00
--  [求助]如何实现 打印目录树
[求助]如何实现 打印目录树
--  作者：有点色
--  发布时间：2017/2/16 17:32: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() \'预览