From 1dfbb2b630837591fd842a514aa9f8ee98fa34a1 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 24 Jan 2020 10:42:39 +0100
Subject: [PATCH] add close document

---
 Controls.DocumentViewer/DocumentViewer.vb | 28 ++++++++++++++++-------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb
index 85ea3400..17c38b10 100644
--- a/Controls.DocumentViewer/DocumentViewer.vb
+++ b/Controls.DocumentViewer/DocumentViewer.vb
@@ -79,19 +79,26 @@ Public Class DocumentViewer
             Exit Sub
         End If
 
-        CloseDocument()
+        _logger.Info("Resetting Viewer.")
 
         GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
         GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
 
+        _logger.Info("Loading File.")
+
         DoLoadFile(filepath)
 
+        _logger.Info("Updating UI.")
+
         statusLabel.Text = _docPath
 
         UpdateMainUi()
     End Sub
 
-
+    Public Sub CloseDocument()
+        GdViewer.CloseDocument()
+        UpdateMainUi()
+    End Sub
 
     Public Sub DeleteTempFiles()
         For Each oFile In _TempFiles
@@ -129,6 +136,17 @@ Public Class DocumentViewer
 
                     RichEditControl1.Visible = True
                     RichEditControl1.Dock = DockStyle.Fill
+                Case ".xls"
+                    Using oConverter As GdPictureDocumentConverter = New GdPictureDocumentConverter()
+                        ' Loading the source document.
+                        oConverter.LoadFromFile(FilePath, GdPicture14.DocumentFormat.DocumentFormatXLSX)
+                        ' Saving as the PDF document.
+                        oConverter.SaveAsPDF("output.pdf", PdfConformance.PDF1_5)
+                    End Using
+
+                    _docPath = "output.pdf"
+
+                    GdViewer.DisplayFromFile(_docPath)
                 Case Else
                     _docPath = FilePath
 
@@ -142,12 +160,6 @@ Public Class DocumentViewer
         End Try
     End Sub
 
-
-    Private Sub CloseDocument()
-        GdViewer.CloseDocument()
-        UpdateMainUi()
-    End Sub
-
     Private Sub btnOpen_Click(sender As Object, e As EventArgs)
         CloseDocument()