主题：文件套打中如何定义字体类型 大小及居中

rx.Text = Format(CurRow("收案时期"), "mm")

改成

rx.Text = Format(CurRow("收案时期"), "MM")

 回复9楼，错误的意思是，同一个控件，不能添加多次。

 添加完 doc.body.Children(rx) 以后，记得要重新生成一个控件

 rx = new prt.RenderText

 自己的问题

Dim Doc As new PrintDoc
Dim rx As object = new prt.RenderText
rx.Text = "asdf[asdfasdfasdf]asdfsdf"
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rx.Style.Font = New Font("楷体", 25, FontStyle.Bold)
'rx.Style.FontBold = True '字体加粗
rx.y = 94
rx.x = 36
doc.body.Children.Add(rx)
Doc.Preview