主题：专业报表预览和SavePDF不能同时生效?

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

这么改一下：

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