以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表 打印文字在出现空格,跳到下一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11146)

--  作者:tungwun
--  发布时间:2011/7/10 9:23:00
--  专业报表 打印文字在出现空格,跳到下一行
在专业报表  可否做到 指定一个表格内容 要打印文字在出现空格,跳到下一行 

 
列:
表内资料:  修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油

(打印成多行)

修理冷气 
换日本翻新冻cail一个
方哇呶
抽真空入环保雪种
入134a泵油

[此贴子已经被作者于2011-7-10 9:32:21编辑过]

--  作者:tungwun
--  发布时间:2011/7/11 12:38:00
--  可否做到
可否做到
--  作者:ybil
--  发布时间:2011/7/11 13:03:00
--  
Dim doc As New PrintDoc \'定义一个报表
Dim rt As  prt.RenderText \'定义一个文本对象
Dim s As String ="修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油"
For Each s1 As String In s.split(" ")
    rt =New prt.RenderText
    rt.Text = s1 \'设置文本对象的内容
    doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'

--  作者:tungwun
--  发布时间:2011/7/11 23:45:00
--  [原创]
Dim s As String ="修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油"

这句代码可否写成指定要列印表的内容?

--  作者:mr725
--  发布时间:2011/7/11 23:52:00
--  
以下是引用tungwun在2011-7-11 23:45:00的发言:
Dim s As String ="修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油"

这句代码可否写成指定要列印表的内容?

红字部分什么意思啊····   晕了


--  作者:tungwun
--  发布时间:2011/7/12 0:10:00
--  [原创]
Dim s As String ="修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油"

这句代码可否写指定提取表的内容?


--  作者:tungwun
--  发布时间:2011/7/12 14:16:00
--  [原创]
  (请问文本对象内容指定表列的内容
Dim doc As New PrintDoc \'定义一个报表
Dim rt As  prt.RenderText \'定义一个文本对象
Dim s As String ="修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油"         (请问文本对象内容指定表列的内容)
For Each s1 As String In s.split(" ")
    rt =New prt.RenderText
    rt.Text = s1 \'设置文本对象的内容
    doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'