直接引用不就行?
Dim doc As New PrintDoc '定义一个报表Dim rt As New prt.RenderText '定义一个文本对象rt.Text = Tables("表A").Rows(0)("备注列")
doc.Body.Children.Add(rt) '将文本对象加入到报表doc.Preview() '预览