参考
Dim doc As PrintDoc = e.Form.GernatePrintDoc()For Each c As Object In doc.body.children If typeof c Is prt.RenderText Then c.Style.LineSpacing = 200 '设置双倍行距 End IfNextdoc.Preview()