BU_Mahnlauf, ustva

SDL/cProgramFunctions.vb

@@ -1124,7 +1124,7 @@ Public Class cProgramFunctions
         Return ""
     End Function
 
-    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "") As String
+    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False) As String
         Try
 
             Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -1181,6 +1181,19 @@ Public Class cProgramFunctions
                 wb.Worksheets(0).Rows().AdjustToContents()
             End If
 
+            If Landscape Then
+                wb.Worksheets(0).PageSetup.PageOrientation = XLPageOrientation.Landscape
+            Else
+                wb.Worksheets(0).PageSetup.PageOrientation = XLPageOrientation.Default
+            End If
+
+            If fitToOnePage Then
+
+                wb.Worksheets(0).PageSetup.PagesWide = 1  ' In die Breite auf eine Seite anpassen
+                wb.Worksheets(0).PageSetup.PagesTall = 1 ' In die Höhe auf eine Seite anpassen
+
+
+            End If
 
 
             Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"