此主题相关图片如下：qq截图20151228111401.jpg
各位大神，救命
我做了一个“报价单”窗口，如上图，想要点击右上角按钮之后 将报价单保存为PDF。
我不太懂代码，只会从网站或者示例上复制过来改改。我试过很多代码都无法保存为PDF，唯独用下面的代码可以，但是打开的PDF是空白的，只有一个红框。请问这个代码怎么改能用PDF显示窗口中的全部内容？拜谢
Dim fl As String = "C:\Users\Administrator\Desktop\1.pdf"
Dim doc As New PrintDoc
Dim ra As New prt.RenderArea
doc.PageSetting.Width = 1500
doc.PageSetting.Height = 800
ra.Width = "Parent.Width"
ra.Height = "Parent.Height"
ra.Style.Borders.All = New prt.Linedef(5, Color.Red)
doc.Body.Children.Add(ra)
doc.SavePDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2015/12/28 11:37:00 [只看该作者]
