| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 标签精准定位 如何做 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170285) |
| -- 作者：yifan3429 -- 发布时间：2021/7/20 16:49:00 -- 标签精准定位 如何做 \'\'表格标签 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) \'将表格对象加入到报表中 Next Doc.Preview() \'预览报表
[此贴子已经被作者于2021/7/20 16:50:42编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/7/20 17:02:00 -- rt.Style.Spacing.All = 5 改为 rt.Style.Spacing.Top = 5 \'和其他对象之间的间隔为2mm rt.Style.Spacing.Bottom= 5 If i Mod 4 = 0 Then \'如果是第一个标签 rt.Style.Spacing.Left= 5 Else rt.Style.Spacing.Left= 2 End If |
| -- 作者：yifan3429 -- 发布时间：2021/7/22 11:09:00 -- 可以单独标签位置 大小好像不会被固定。 会随着间距的大小而变化，如何把它固定下来？
|
| -- 作者：有点蓝 -- 发布时间：2021/7/22 11:21:00 -- 有的麻烦。不能使用排列方式，要自己控制每个标签的位置：http://www.foxtable.com/webhelp/topics/1177.htm |