| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何横向打印标签 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152649) |
|
| -- 作者：找到没重的名 -- 发布时间：2020/7/17 11:32:00 -- [求助]如何横向打印标签 请教老师：想让标签横向左右排列，横着排满后再另一行，但是弄了半天还是只能竖着。 Dim tb As Table=Tables("花名册") Dim doc As New PrintDoc \'定义一个报表 Doc.PageSetting.LeftMargin = 10 \'设置左边距 Doc.PageSetting.RightMargin = 10 \'设置右边距 Doc.PageSetting.TopMargin = 10 \'设置上边距 Doc.PageSetting.BottomMargin = 10 \'设置下边距 doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式 For i As Integer = 0 To 9 Dim rpar As New prt.RenderParagraph() \'定义一个段落对象 Dim f As New Font(rpar.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体 rpar.Content.AddImage(getimage("logo.jpg")) rpar.Content.AddText("XXXXXXXXX区") doc.body.Children.add(rpar) Dim rt As New prt.RenderTable() \'定义一个表格对象 rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型 rt.Width = "auto" \'表格宽度为50mm rt.Height = 70 \'设置表格的高度 rt.Style.Spacing.All = 10 \'和其他对象之间的间隔为2mm rt.Style.TextAlignHorz = prt.AlignHorzEnum.center \'水平居中排列 rt.style.TextAlignVert = prt.AlignVertEnum.Center rt.SplitHorzBehavior = prt.SplitBehaviorEnum.Never \'禁止水平分割 rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'避免垂直换页的时候,表格被分割成两部分. rt.Cols(0).Width = 20 rt.Cols(1).Width = 20 rt.cells(0,0).Text = "姓 名" rt.Cells(0,1).Text = tb.Rows(i)("姓名") rt.Cells(1,0).Text = "性 别" rt.Cells(1,1).Text = tb.Rows(i)("性别") rt.Cells(2,0).Text= "年 龄" rt.cells(2,1).Text = tb.Rows(i)("年龄") rt.Cells(3,0).Text = "项目1" rt.Cells(3,1).Text = tb.Rows(i)("项目1) rt.Cells(4,0).Text= "项目2" rt.cells(4,1).Text = tb.Rows(i)("项目2") doc.Body.Children.Add(rt) \'将表格对象加入到报表中 Next Doc.Preview() \'预览报表
|
|
| -- 作者：有点蓝 -- 发布时间：2020/7/17 11:58:00 -- 参考：http://www.foxtable.com/webhelp/topics/1186.htm
|