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.Style.FontBold = True '字体加粗
rt.Style.FontSize = 18 '字体大小为18磅
rt.x=x
rt.y=10
ra.Children.Add(rt)
rt = New prt.RenderText
Dim s As String = r("姓名")
For i As Integer = s.Length - 1 To 1 Step -1
s = s.Insert(i,vbcrlf)
Next
rt.Text = s
rt.Style.FontBold = True '字体加粗
rt.Style.FontSize = 22 '字体大小为22磅
rt.x=x
rt.y=25
ra.Children.Add(rt)
rt = New prt.RenderText
rt.Text = "(" & r("属性") & ")"
rt.Style.FontBold = True '字体加粗
rt.Style.FontSize = 12 '字体大小为12磅
rt.x=x
rt.y=65
ra.Children.Add(rt)
Next
doc.body.Children.Add(ra)
Next
doc.Preview() '预览
这是全部代码，但是报错？？？
还有你上面提到的内部函数又如何理解？
加好友 
发短信
Post By：2019/8/14 8:35:00 [显示全部帖子]
Post By：2019/8/14 8:43:00 [显示全部帖子]
Post By：2019/8/15 11:56:00 [显示全部帖子]
此主题相关图片如下：微信图片_20190814081811.jpg
