主题：[求助]请教，有没有办法把目录树导出为一个图片或其他可见的文件

参考代码

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() '预览

http://www.foxtable.com/webhelp/scr/2450.htm