上传的文档肯定没有
Dim doc As New PrintDoc '定义一个报表
Dim tbl As Table = Tables("DXJ")
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
For i As Integer = tbl.TopRow To tbl.BottomRow Step 5
Dim rw As Row = tbl.Rows(i)
Dim s As String = rw("答案")
For j As Integer = 1 To 4
If i+j <= tbl.BottomRow
rw = tbl.Rows(i+j)
s = s & rw("答案")
End If
Next
Output.Show(i)
Dim xhda As New prt.RenderText '定义一个文本对象
Dim da As New prt.RenderArea '定义一个容器
da.Width = 45 '宽度53毫米
'da.Height = 24 '高度24毫米
da.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
Doc.Body.ChildRen.Add(da) '将容器加入到报表中
'加入标题
xhda.text = i+1 & "-" & i+5 & ":" & s
xhda.Style.FontBold = True '字体加粗
xhda.Style.FontSize = 16 '大体大小为16磅
da.Children.Add(xhda) '加入到容器中
Next
Doc.Preview() '预览报表
加好友 
发短信
Post By：2020/7/17 11:07:00 [显示全部帖子]
