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 = 150 '表宽为150毫米rt.Height = 150 '表高为150毫米rt.Rows.Count = 3 '设置行数rt.Cols.Count = 3 '设置列数Doc.Preview() '预览报表