Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 205 '纸张宽度为100毫米
doc.PageSetting.Height = 292 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 4 '设置左边距
Doc.PageSetting.RightMargin = 104 '设置右边距
Doc.PageSetting.TopMargin = 5 '设置上边距
Doc.PageSetting.BottomMargin = 5 '设置下边距
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
Dim r As Row = Tables("订单明细表").current
For i As Integer = 1 To r("张数")
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Width = 31.2 '表格宽度为31.2mm
rt.Height = 16.5 '高度16.5毫米
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
rt.Cols(0).Width = 31.2
rt.Cells(0,0).Text = r("客户名称")
rt.Style.FontSize = 9 '字体大小为16磅
rt.Cells(1,0).Text = r("订单编号")
rt.Style.Spacing.Right = 2
rt.Cells(2,0).Text = r("宽")
rt.Style.Spacing.Right = 2
rt.Cells(2,1).Text = r("高")
rt.Style.Spacing.Left = 2
doc.Body.Children.Add(rt) '将表格对象加入到报表中
If i Mod 102 = 0 Then
Dim rm As new prt.RenderEmpty '定一个空对象
rm.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rm) '加入到报表中
End If
Next
If r("张数") > 0 AndAlso r("张数") Mod 102 <> 0 AndAlso r.Index < Tables("订单明细表").Rows.count - 1 Then
Dim rm As new prt.RenderEmpty '定一个空对象
rm.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rm) '加入到报表中
End If
Doc.Preview() '预览报表