稍微修改一下就可以了
Dim doc As New PrintDoc '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
Dim s As String '定义字符变量
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席胡涛乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
For i As Integer = 1 To 20
rt = New prt.RenderText
rt.Text = s '设置文本对象的内容
rt.Style.TextIndent = 9 '首行缩进9毫米
rt.Style.Spacing.Top = 5 '每段间隔5毫米
rt.Style.LineSpacing = 150 '1.5倍行距
doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
'设置水印
Dim rm As New prt.RenderImage() '定义一个图片对象
rm.Image = GetImage("C:\Users\newpoc\Desktop\QQ截图20150604112812.png") '请改为实际的图标名称和路径
Doc.WaterMark = rm '作为水印使用
doc.Preview() '预览
这是我基于帮助修改的.你把文字水印改为图片即可
加好友 
发短信
Post By：2015/6/15 17:37:00 [显示全部帖子]
