1 doc.SavePDF("d:\test.pdf")
doc.Preview
这样预览为空白
2 在窗口中执行 第二次执行时显示文件被打开无法保存, 提示窗口 无法关闭
3. Dim Line As New prt.LineDef(.5, Color.FromARGB(150,0,120,130))
Dim ln As New prt.RenderLine(rmlog.x,val(rtitle_5_a.y)+10,val( rmlog.x)+50,val(rtitle_5_a.y)+10, Line)
doc.body.Children.Add(ln) '将线条加入到报表中
预览为彩色 但保存为pdf 为 灰度