- Se traslada versión a git desde tfs

Utilidades/odt.vb

@@ -0,0 +1,83 @@
+
+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