关于线,你想怎么处理都可以
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children If c.Gettype.Name Like "*Table*" Then Dim t As prt.RenderTable = c t.Style.GridLines.All = New prt.Linedef(1, Color.Red) End IfNext
doc.Preview