主题：yangming版主请进 标签大小怎么无法固定

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("表A").Current
'加入标题
rx.text = "产品合格证"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 16 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
'指定行数?列数?列宽?行高
rt.Rows.Count = 5 '设置总行数
rt.Cols.Count = 4 '设置总列数
rt.Height = 40 '设置表格的高度为80毫米
rt.Width = "Parent.Width"
rt.Cols(0).Width = 15 '设置前四列的宽度,剩余的宽度被分配给5列(显示图片的那列)
rt.Cols(1).Width = 10
rt.Cols(2).Width = 15
rt.Cols(3).Width = 10
'设置合并单元格
rt.Cells(4,1).SpanCols = 3 '第5行第2个单元格向右合并3列(用于显示地址)
'设置表格样式
rt.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
rt.Rows(4).Style.TextAlignVert = prt.AlignVertEnum.Top '唯独第7行是备注,内容靠上对齐
doc.PageSetting.Width = 160 '纸张宽度为100毫米
doc.PageSetting.Height = 110 '纸张高度为120毫米
'下面很简单,指定每一个单元格的内容
rt.Cells(0,0).Text= "颜色"
rt.Cells(0,1).Text = CurRow("颜色")
rt.Cells(0,2).Text= "幅宽"
rt.Cells(0,3).Text = CurRow("幅宽")
rt.Cells(1,0).Text= "颜色编号"
rt.Cells(1,1).Text = CurRow("颜色编号")
rt.Cells(1,2).Text= "克重"
rt.Cells(1,3).Text = CurRow("克重")
rt.Cells(2,0).Text= "卷长"
rt.Cells(2,1).Text = CurRow("卷长")
rt.Cells(2,2).Text= "重量"
rt.Cells(2,3).Text = CurRow("净重")
rt.Cells(3,0).Text= "日期"
rt.Cells(3,1).Text = format(CurRow("打印时间"),"MMDD")
rt.Cells(3,2).Text= "检验"
rt.Cells(3,3).Text = CurRow("值班师傅")
rt.Cells(4,0).Text= "条形码"

Dim rbc As New prt.RenderBarCode()
rbc.Width = 70
rbc.Height = 20
rbc.BarCodeType = barcodeenum.code39
rbc.BarDirection = bardirectionenum.normal
rbc.Text = "   " & currow("条形码")
rbc.ShowText = True   '是否显示编码
rt.cells(4,1).RenderObject = rbc
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.TextAlignHorz = prt.AlignVertEnum.Center
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.Preview() '预览报表