主题：专业报表 打印文字在出现空格,跳到下一行

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() '