比如
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 102 '纸张宽度为100毫米
doc.PageSetting.Height = 76 '纸张高度为120毫米
Dim rm As prt.RenderEmpty '定一个空对象
For i As Integer = 1 To 3
rm = new prt.RenderEmpty '定义一个新的空对象
rm.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rm) '加入到报表中
Dim rt As New prt.RenderText '定义一个文本对象
rt.X = 10
rt.y = 10
rt.Text = r("客户") '设置文本对象的内容
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt = New prt.RenderText '定义一个文本对象
rt.X = 10
rt.y = 30
rt.Text = "第: 00" & i
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Next
Doc.Preview() '预览报表
End If
加好友 
发短信
Post By：2018/11/3 9:13:00 [显示全部帖子]
