本帖最后由 Lenka.Guo 于 2016-9-26 14:07 编辑
写法
Private _mintHtmlExport As HtmlExport
Private ReadOnly Property MintHtmlExport As HtmlExport
Get
If _mintHtmlExport Is Nothing Then
_mintHtmlExport = New HtmlExport
_mintHtmlExport.Pagination = True
End If
Return _mintHtmlExport
End Get
End Property
Public Sub ExportHtml()
Me.MintHtmlExport.Export(Me.arViewer.Document, "D:\temp\a.htm")
End Sub
如果 Document 中含有Page 为 1200 页的时候,会不稳定出现下面的错误。
種類 'System.OutOfMemoryException' の例外がスローされました。
|
|