以下是引用zcgmxf在2015/6/2 10:19:00的发言：虽然可以把文本框拉长些用空格键移动文本位置，但是要是有多页，后面的就没有表名了。
注释的代码，是控制居中的代码，但是如果用页眉页脚，就不用写了。
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
'Dim ndoc As new PrintDoc
'For Each c As object In Doc.Body.Children
'If c.Gettype.name Like "*RenderText*" AndAlso c.Text = e.Form.Controls("Label1").Text Then
'Dim nt As new prt.RenderText
'nt.Text = c.text
'nt.y = c.y
'nt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
'ndoc.Body.Children.Add(nt)
'Else
'ndoc.Body.Children.Add(c.Clone)
'End If
'Next
Dim rt As New prt.RenderText '设置文本对象的内容
rt.Text = e.Form.Controls("Label1").Text '设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '靠右对齐
rt.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 8 '字体大小为8磅
Doc.PageHeader = rt '作为页眉使用
doc.Preview() '预览
加好友 
发短信
Post By：2015/6/2 10:46:00 [只看该作者]
