大概这样，细节自行调整
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 121 '纸张宽度为121毫米
doc.PageSetting.Height = 89 '纸张高度为89毫米
Dim rt As New prt.RenderText '定义一个文本对象
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 7 '设置右边距
Doc.PageSetting.TopMargin =9 '设置上边距
Doc.PageSetting.BottomMargin = 10 '设置下边距
Dim ra As New prt.RenderArea
ra.Style.Spacing.Bottom = 3
Dim rm As prt.RenderEmpty '定一个空对象
For i As Integer = 0 To Tables("在职人员").Rows.Count - 1 Step 4
ra = New prt.RenderArea
rm = new prt.RenderEmpty '定义一个新的空对象
rm.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rm) '加入到报表中
For j As Integer = 0 To 3
Dim x As Integer = 10 + j*25
Dim r As Row = Tables("在职人员").Rows(i+j)
rt = New prt.RenderText
rt.Text = r("档案编码")
rt.x=x
rt.y=10
ra.Children.Add(rt)
rt = New prt.RenderText
rt.Text = r("姓名")
rt.Style.TextAngle = -90
rt.x=x
rt.y=25
ra.Children.Add(rt)
rt = New prt.RenderText
rt.Text = "(" & r("属性") & ")"
rt.x=x
rt.y=60
ra.Children.Add(rt)
Next
doc.body.Children.Add(ra)
Next
doc.Preview() '预览
加好友 
发短信
Post By：2019/8/14 10:00:00 [显示全部帖子]
