以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  专业报表不能打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110909)

--  作者：lihe60 --  发布时间：2017/12/12 12:10:00 --  专业报表不能打印  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:专业报表打印.rar

--  作者：有点甜 --  发布时间：2017/12/12 12:21:00 --           For i As Integer=0 To Tables("表D").rows.count-1             rt = New prt.RenderText() \'创建文本对象             Dim r As Row=Tables("表D").rows(i)             rt.Text = R(c.name.replace("子表_","")) \'设置文本对象的内容             rt.Width = "Auto" \'自动设置宽度             rt.x = val(dr(c.name).split(",")(0))  * 10 + 20 \'指定水平位置             rt.y= (val(dr(c.name).split(",")(1))+i) * 10 + 20 \'指定垂直位置             \'  MessageBox.Show((val(dr(c.name).split(",")(1))+i) * 10)             \' rt.Style.Borders.All = New prt.Linedef(0.3, Color.Red) \'设置边框             n=val(dr(c.name).split(",")(2))             rt.Style.Font = New Font("宋体", n , FontStyle.Bold) \'设置文本对象的字体             doc.Body.Children.Add(rt) \'将文本对象加入到报表         Next

--  作者：lihe60 --  发布时间：2017/12/12 15:07:00 --   [此贴子已经被作者于2017/12/12 15:17:27编辑过]

--  作者：lihe60 --  发布时间：2017/12/12 15:10:00 --   [此贴子已经被作者于2017/12/12 15:17:06编辑过]