-- 作者: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编辑过]
|