标签精准定位如何做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

''表格标签 16枚

需要解决的是，表格标签需要对应到指定的纸张位置，
目前间隔距离是统一的 rt.Style.Spacing.All = 5 '和其他对象之间的间隔为2mm

对齐第一个后面的三个就对应不上了

如何给标签单独设置间距

Dim doc As New PrintDoc '定义一个报表

''设置页边距

doc.PageSetting.PaperKind = 9 '9等于A4纸张

doc.PageSetting.Landscape = True '横向打印

Doc.PageSetting.LeftMargin = 10 '设置左边距

Doc.PageSetting.RightMargin = 5 '设置右边距

Doc.PageSetting.TopMargin = 10 '设置上边距

Doc.PageSetting.BottomMargin = 8 '设置下边距

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

Dim tbl As Table = Tables("美学色板库")

For i As Integer = tbl.TopRow To tbl.BottomRow

Dim rw As Row = tbl.Rows(i)

Dim rt As New prt.RenderTable() '定义一个表格对象

rt.Height = 45 '设置表格的高度

rt.Width = 70 '表格宽度为50mm

rt.Style.Spacing.All = 5 '和其他对象之间的间隔为2mm

rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型

rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中

rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.

rt.Cols(0).Width = 15

'rt.Cols(1).Width = 20

rt.cells(0,0).Text = "色标ID:"

rt.Cells(0,1).Text = rw("色卡ID")

rt.Cells(1,0).Text = "名称"

rt.Cells(1,1).Text = rw("中文名称")

rt.cells(2,0).Text = "色标ID:"

rt.Cells(2,1).Text = rw("色卡ID")

rt.Cells(3,0).Text = "名称"

rt.Cells(3,1).Text = rw("中文名称")

'rt.Cells(0,2).Image = GetImage(rw("图片"))

doc.Body.Children.Add(rt) '将表格对象加入到报表中

Doc.Preview() '预览报表

[此贴子已经被作者于2021/7/20 16:50:42编辑过]

主题：标签精准定位 如何做