1、比如
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "□?" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览
2、execl模板输出关联表必须关联,没有其它办法

此主题相关图片如下:爱好jpg.jpg

测试一下,效果不是很好,没有EXECL好
专业报表,复选框、单选框是主表的爱好列的内容,专业报表如何实现?
估计楼主是想专业报表中勾选的同时带背景色,可以截成图,专业报表时绘制不同样式的图片即可!
此主题相关图片如下:专业报表复选问题.jpg

图上爱好固定,表中是动态数据,如何实现动态?
rt.Cells(7, 0).Text = "爱好:□书法, ■跑步 ,□唱歌, □种花"
rt.Cells(7, 1).Text = CurRow("爱好")
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.Preview() '预览报表
dim s as string = "爱好:"
dim ah as string = CurRow("爱好")
if ah.contains("书法") then
s = s & "口"
else
s= s & "√"
end if
s = s & "书法"
if ah.contains("跑步") then
s = s & "口"
else
s= s & "√"
end if
s = s & "跑步"
……
rt.Cells(7, 1).Text = s