主题：[求助]关于专业报表打印小尺寸标签错误的问题

试试这样

Dim Doc As new PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
Doc.PageSetting.Height = 35
Doc.PageSetting.Width = 25
Doc.PageSetting.LeftMargin = 0  '左边距
Doc.PageSetting.RightMargin = 0 '右边据
doc.PageSetting.BottomMargin = 0 '底边距
Doc.PageSetting.TopMargin = 0 '上边距
Doc.PageSetting.Landscape = True  '是否横向
doc.AutoRotate = False '禁止自动旋转打印内容

Dim tab As Table = Tables("Daohuolist_table1")
rt.Style.Font = tab.font
rt.Rows.Count = 1  '总行数
rt.Cols.Count = 1  '总列数
rt.Height = 35
rt.Width = 25
    'rt.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    'rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
rt.Style.GridLines.All = New prt.LineDef(0,Color.black)  '网格线
rt.Cells(0,0).Text = "test"

Doc.Body.Children.Add(rt)
Doc.PrinterName = "TSC TTP-245"
Doc.Preview() '预览报表