关键是你要怎么打印,直接列出内容?
Dim trv As WinForm.TreeView = forms("窗口1").controls("treeview1")
Dim doc As New PrintDoc '定义一个报表Dim rt As New prt.RenderText '定义一个文本对象rt.Text = trv.SelectedNode.DataRow("第一列")doc.Body.Children.Add(rt) '将文本对象加入到报表doc.Preview() '预览