83 lines
3.2 KiB
VB.net
83 lines
3.2 KiB
VB.net
|
|
Imports DevExpress.Office.Services
|
|
'Imports DevExpress.Web
|
|
Imports DevExpress.XtraPrinting
|
|
Imports DevExpress.XtraRichEdit
|
|
Imports DevExpress.XtraRichEdit.Native
|
|
Imports DevExpress.XtraRichEdit.Model
|
|
Imports DevExpress.XtraReports.UI
|
|
Imports System.Data
|
|
|
|
Namespace Utilidades
|
|
Public Class odt
|
|
Public Shared Sub ExportarApdf(FicheroOrigen As String, FicheroDestino As String)
|
|
Try
|
|
Dim docServer As New RichEditDocumentServer
|
|
docServer.LoadDocument(FicheroOrigen, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument)
|
|
docServer.Options.Export.Html.EmbedImages = True
|
|
|
|
Dim fs As New IO.FileStream(FicheroDestino, IO.FileMode.Create, IO.FileAccess.Write)
|
|
docServer.ExportToPdf(fs)
|
|
fs.Close()
|
|
docServer.Dispose()
|
|
GC.Collect()
|
|
GC.WaitForPendingFinalizers()
|
|
Catch ex As Exception
|
|
Throw New Exception(ex.Message, ex)
|
|
End Try
|
|
End Sub
|
|
Public Shared Function ExportarApdf(FicheroOrigen As String) As Byte()
|
|
Try
|
|
Dim docServer As New RichEditDocumentServer
|
|
docServer.LoadDocument(FicheroOrigen, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument)
|
|
' docServer.Options.Export.Html.EmbedImages = True
|
|
Dim ms As New IO.MemoryStream
|
|
docServer.Dispose()
|
|
GC.Collect()
|
|
GC.WaitForPendingFinalizers()
|
|
Return ms.ToArray
|
|
Catch ex As Exception
|
|
Throw New Exception(ex.Message, ex)
|
|
End Try
|
|
End Function
|
|
Public Shared Sub ExportarApdf(Documento As IO.Stream, Destino As IO.Stream)
|
|
Try
|
|
Dim docServer As New RichEditDocumentServer
|
|
docServer.LoadDocument(Documento, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument)
|
|
docServer.Options.Export.Html.EmbedImages = True
|
|
|
|
Dim po As New PdfExportOptions
|
|
po.Compressed = True
|
|
'po.PageRange = "1-10"
|
|
|
|
docServer.ExportToPdf(Destino, po)
|
|
docServer.Dispose()
|
|
GC.Collect()
|
|
GC.WaitForPendingFinalizers()
|
|
Catch ex As Exception
|
|
Throw New Exception(ex.Message, ex)
|
|
End Try
|
|
End Sub
|
|
Public Shared Function ExportarApdf(Documento As IO.Stream) As Byte()
|
|
Try
|
|
Dim docServer As New RichEditDocumentServer
|
|
docServer.LoadDocument(Documento, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument)
|
|
docServer.Options.Export.Html.EmbedImages = True
|
|
|
|
Dim po As New PdfExportOptions
|
|
po.Compressed = True
|
|
'po.PageRange = "1-10"
|
|
|
|
Dim ms As New IO.MemoryStream
|
|
docServer.ExportToPdf(ms, po)
|
|
docServer.Dispose()
|
|
GC.Collect()
|
|
GC.WaitForPendingFinalizers()
|
|
Return ms.ToArray
|
|
Catch ex As Exception
|
|
Throw New Exception(ex.Message, ex)
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|
|
End Namespace |