请问我用专业报表打印标签，表格中的字前后距如何调整 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：无标题.jpg

请问我用专业报表打印标签，表格中的字前后行距如何调整，标签就这么大了，内容也得这么多，放大字体就会看不清，字小了上下被截掉了。谢谢。

用内距调整无效。rx.Style.Spacing.All = 0

[此贴子已经被作者于2017/7/12 11:35:43编辑过]

你代码怎么写，贴出你写的代码。

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

'设置页面

doc.PageSetting.Width=60

doc.PageSetting.Height=40

doc.PageSetting.LeftMargin=4

doc.PageSetting.TopMargin=4

doc.PageSetting.BottomMargin=4

doc.PageSetting.RightMargin=4

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

rt.Style.FontSize = 7 '大体大小

'字体加粗

rt.style.fontbold=True

rx.Style.Spacing.All = 0

'指定行数?列数?列宽?行高

rt.Rows.Count = 5 '设置总行数

rt.Cols.Count = 2 '设置总列数

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

rt.Cols(0).Width = 15 '设置前列的宽度

'设置表格样式

rt.CellStyle.Spacing.All = 2 '单元格内容缩进1毫米

rt.Style.WordWrap=True '内容垂直居中

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

rt.Cells(0,0).Style.Spacing.Top = 0 '和上面的对象距离

rt.Cells(0,0).Style.Spacing.Bottom = 0 '和下面的对象距离

'rt.cells(0,0).Style.Borders.bottom = New prt.Linedef(0.2, Color.black)

'rt.cells(0,0).Style.Font=New Font("隶书",8,FontStyle.bold)

'rt.cells(0.0).style.Font=New Font("隶书", 10, FontStyle.Bold)

rt.Cells(0,1).Text= Tables("试剂配置").current("试剂名称")

rt.Cells(0,1).Style.Spacing.Top = 0 '

rt.Cells(0,1).Style.Spacing.Bottom = 0 '和下面的对象(表格)距离3毫米'rt.Cells(0,0).Style.TextAlignHorz=prt.AlignHorzEnum.left '水平居中

rt.cells(0,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)

rt.Cells(0,1).Style.WordWrap=False

rt.Cells(1,0).Text= "配置浓度"

rt.Cells(1,0).Style.Spacing.Top = 0 '

rt.Cells(1,0).Style.Spacing.Bottom = 0 '和下面的对象(表格)距离3毫米'rt.Cells(0,0).Style.TextAlignHorz=prt.AlignHorzEnum.left '水平居中

rt.Cells(1,1).Text =Tables("试剂配置").current("浓度")

rt.Cells(1,1).Style.Spacing.Top = 0 '

rt.Cells(1,1).Style.Spacing.Bottom = 0 '和下面的对象(表格)距离3毫米'rt.Cells(0,0).Style.TextAlignHorz=prt.AlignHorzEnum.left '水平居中

rt.cells(1,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)

rt.Cells(1,1).Style.WordWrap=False

rt.Cells(2,0).Text= "配制人"

rt.Cells(2,1).Text =Tables("试剂配置").current("配制人")

rt.cells(2,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)

rt.Cells(2,1).Style.WordWrap=False

rt.Cells(3,0).Text= "配制日期"

rt.Cells(3,1).Text =Tables("试剂配置").current("配制日期")

rt.cells(3,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)

rt.Cells(3,1).Style.WordWrap=False

rt.Cells(4,0).Text= "有效日期"

rt.Cells(4,1).Text =Tables("试剂配置").current("有效日期")

rt.cells(4,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)

rt.Cells(4,1).Style.WordWrap=False

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

Doc.Print()

因为标签太小了，我想字与线几乎完全贴合在一起

Dim doc As New PrintDoc '定义一个报表
'设置页面
doc.PageSetting.Width=60
doc.PageSetting.Height=40
doc.PageSetting.LeftMargin=4
doc.PageSetting.TopMargin=4
doc.PageSetting.BottomMargin=4
doc.PageSetting.RightMargin=4

Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.FontSize = 7 '大体大小
'字体加粗
rt.style.fontbold=True
rt.Style.Spacing.All = 0
'指定行数?列数?列宽?行高
rt.Rows.Count = 5 '设置总行数
rt.Cols.Count = 2 '设置总列数

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

rt.Cols(0).Width = 15 '设置前列的宽度

rt.CellStyle.padding.Top = 2 '单元格内容缩进
rt.Style.WordWrap=True '内容垂直居中

rt.Cells(0,0).Text= "试剂名称"
rt.Cells(0,1).Text ="开始大幅"
rt.cells(0,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)
rt.Cells(0,1).Style.WordWrap=False
rt.Cells(1,0).Text= "配置浓度"
rt.Cells(1,1).Text ="开始大幅"
rt.cells(1,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)
rt.Cells(1,1).Style.WordWrap=False
rt.Cells(2,0).Text= "配制人"
rt.Cells(2,1).Text ="开始大幅"
rt.cells(2,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)
rt.Cells(2,1).Style.WordWrap=False
rt.Cells(3,0).Text= "配制日期"
rt.Cells(3,1).Text ="开始大幅"
rt.cells(3,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)
rt.Cells(3,1).Style.WordWrap=False
rt.Cells(4,0).Text= "有效日期"
rt.Cells(4,1).Text ="开始大幅"
rt.cells(4,1).Style.Borders.bottom = New prt.Linedef(0.1, Color.black)
rt.Cells(4,1).Style.WordWrap=False
doc.Body.Children.Add(rt) '将表格对象加入到报表中

Doc.Preview

谢谢，我用指定位置打印也实现了。

主题：请问我用专业报表打印标签，表格中的字前后距如何调整