以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14468)

--  作者:y2287958
--  发布时间:2011/11/20 17:07:00
--  专业报表问题请教

代码一:

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
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-11-20 17:12:25编辑过]

--  作者:czy
--  发布时间:2011/11/20 18:03:00
--  
s = "  ".Padleft(400,Chr(127)) & "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
--  作者:y2287958
--  发布时间:2011/11/20 18:30:00
--  
感谢czy!