主题：表格为什么那么小呀

你设置的总体的表格宽高啊

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt.Width = 200'表宽为150毫米
rt.Height = 100 '表高为150毫米
rt.Rows.Count = 18 '设置行数
rt.Cols.Count = 16 '设置列数
doc.PageSetting.Landscape = True '横向打印

Doc.Preview() '预览报表