主题：专业报表问题请教

代码一：

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim s As String
s = " ".Padleft(200,"我") & "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
rt.Text = s '设置文本对象的内容
rt.Style.TextIndent = 9 '首行缩进9毫米
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

 

代码二：

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim s As String
s = " ".Padleft(200," ") & "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
rt.Text = s '设置文本对象的内容
rt.Style.TextIndent = 9 '首行缩进9毫米
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

 

问题：为何专业报表默认将空白部分给省掉？我要的就是利用空白符号来达到不打印部分内容！请教如何解决？谢谢！

此主题相关图片如下：代码一结果图.png


此主题相关图片如下：代码二结果图.png

s = "  ".Padleft(400,Chr(127)) & "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"

感谢czy！