用表格设计标签
如果不需要很精确的定位,用表格设计标签更为方便。
示例:
Dim
doc
As New PrintDoc
'定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
'设置排列方式
For i As
integer =
1
to
100
Dim rt
As New prt.RenderTable()
'定义一个表格对象
rt.Style.GridLines.All = New
prt.LineDef '将网格线类型设为默认类型
rt.Width = 50
'表格宽度为50mm
rt.Style.Spacing.All =
2 '和其他对象之间的间隔为2mm
rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never
'避免垂直换页的时候,表格被分割成两部分。
rt.Cols(0).Width
= 20
rt.cells(0,0).Text
= "姓名"
rt.Cells(0,1).Text
= "黄财德"
rt.Cells(1,0).Text
= "职务"
rt.Cells(1,1).Text
= "总经理"
rt.Cells(2,0).Text=
"工号"
rt.cells(2,1).Text
= "44081996008"
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
Next
Doc.Preview() '预览报表
下图是执行结果,每一个表格就是一个标签:
本页地址:http://www.foxtable.com/webhelp/topics/1219.htm