主题：专业报表问题 在线急等

最好用个简单的、能运行的例子，直入主题地说明你的问题，而不是不负责任地贴出几百行代码。

你表述问题清晰一点，别人更有可能帮上忙。

在命令窗口执行： 

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Style.TextAlignHorz = 4
Dim s As String
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席胡涛乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
rt.text = s
doc.Body.Children.Add(rt)
doc.Preview()