- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口保存为PDF (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79276)
-- 发布时间：2015/12/28 11:37:00
-- [求助]窗口保存为PDF
此主题相关图片如下：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()
-- 发布时间：2015/12/28 11:45:00
--
Dim fl As String = "C:\\Users\\Administrator\\Desktop\\1.pdf"
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.SavePDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
-- 发布时间：2015/12/28 11:51:00
--
成功了！谢谢
