以下是引用有点蓝在2020/7/17 11:07:00的发言：
能看到有专业报表代码，在哪
代码就在上传的文档里啊
Dim doc As New PrintDoc '定义一个报表
Dim tbl As Table = Tables("DXJ")
For i As Integer = tbl.TopRow To tbl.BottomRow
Dim rw As Row = tbl.Rows(i)
Dim xhda As New prt.RenderText '定义一个文本对象
Dim da As New prt.RenderArea '定义一个容器
da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止容器因为分页而被垂直分割
'加入标题
xhda.text = rw("答案")
xhda.Style.FontBold = True '字体加粗
xhda.Style.FontSize = 16 '大体大小为16磅
xhda.x = i *10
xhda.Y = " Prev.Right + 5 "
xhda.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
da.Children.Add(xhda) '加入到容器中
Doc.Body.ChildRen.Add(da) '将容器加入到报表中
Next
Doc.Preview() '预览报表
加好友 
发短信
Post By：2020/7/17 10:40:00 [显示全部帖子]
此主题相关图片如下：专业报表1.png
