以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123869)
--  作者：rjh4078
--  发布时间：2018/8/25 9:29:00
--  专业报表的问题
Dim doc As New PrintDoc \'定义一个报表
doc.PageSetting.Width = 60
doc.PageSetting.Height =40
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
rt.Width = 58 \'表宽为150毫米
rt.Height = 38 \'表高为150毫米
rt.Rows.Count = 3 \'设置行数
rt.Cols.Count = 3 \'设置列数
Doc.Preview() \'
出来的效果却是这样

图片点击可在新窗口打开查看此主题相关图片如下：tim截图20180825092805.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/8/25 9:38:00
--  

[此贴子已经被作者于2018/8/25 9:37:59编辑过]
--  作者：rjh4078
--  发布时间：2018/8/25 9:39:00
--  
感觉专业报表这个代码有点问题

我改成这样 
Dim doc As New PrintDoc \'定义一个报表
Doc.PageSetting.Width=60
Doc.PageSetting.Height=600
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
rt.Width = "Auto" \'表宽为150毫米
rt.Height = 150 \'表高为150毫米
rt.Rows.Count = 3 \'设置行数
rt.Cols.Count = 3 \'设置列数
Doc.Preview() \'预览报表

只显示一条竖线
图片点击可在新窗口打开查看此主题相关图片如下：tim截图20180825093847.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/8/25 9:43:00
--  
Dim doc As New PrintDoc \'定义一个报表
doc.PageSetting.Width = 60
doc.PageSetting.Height =40
doc.PageSetting.TopMargin = 1
doc.PageSetting.LeftMargin = 1
doc.PageSetting.BottomMargin = 1
doc.PageSetting.RightMargin = 1
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
rt.Width = 58 \'表宽为150毫米
rt.Height = 38 \'表高为150毫米
rt.Rows.Count = 3 \'设置行数
rt.Cols.Count = 3 \'设置列数
Doc.Preview() \'
--  作者：rjh4078
--  发布时间：2018/8/25 13:51:00
--  
果然可以了