主题：复杂图文设置

Dim doc As New PrintDoc 

Dim rpar As New prt.RenderParagraph() '定义一个段落对象

Dim f As New Font(rpar.Style.Font.Name,16, FontStyle.Underline)

rpar.Content.AddText("中国",f)

rpar.Content.AddText("提供物品文件清单")

rpar.style.Font = new font("宋体",16)

rpar.style.TextAlignHorz = prt.AlignHorzEnum.Center

rpar.Style.Spacing.Bottom = 3

rpar.Style.Spacing.top = 3

doc.body.Children.add(rpar)

doc.Preview()