以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表预览和SavePDF不能同时生效?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28812)
--  作者：don
--  发布时间：2013/2/19 17:13:00
--  专业报表预览和SavePDF不能同时生效?
经测试:Doc.SavePDF 和doc.Preview()谁在前,谁生效!
        1.SavePDF在前,生成的文件正常,预览则空白!
        2. Preview 在前,预览正常,生成的文件则空白!

Dim doc As New PrintDoc 
Dim rt As New prt.RenderText 
rt.Text = "Hello Foxtable" 
doc.Body.Children.Add(rt) 

Doc.SavePDF("D:\\001.PDF")   
doc.Preview()
--  作者：狐狸爸爸
--  发布时间：2013/2/19 17:21:00
--  

呵呵，这个只能一次来一个，执行一个之后，就会清除所有内容。

这么改一下：

 

For i As Integer = 1 To 2
    Dim doc As New PrintDoc
    Dim rt As New prt.RenderText
    rt.Text = "Hello Foxtable"
    doc.Body.Children.Add(rt)
    If i = 1 Then
        Doc.SavePDF("D:\\001.PDF")
    Else
        doc.Preview()
    End If
Next