主题：打印问题，有没有直接打印线的函数

Dim Line As New prt.LineDef(2, Color.black)

Dim ln As New prt.RenderLine(475,647,700,647,Line)

doc.body.Children.Add(ln)

doc.Preview()

我写了这么多的代码去打一条线屏幕上面没有什么反应呀

Dim doc As PrintDoc = e.form.GernatePrintDoc()

Dim Line As New prt.LineDef(2, Color.Red)

Dim ln As New prt.RenderLine(20,20, 80, 80, Line)

doc.body.Children.Add(ln)

doc.Preview()