BMD Interface Pfad

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -1,6 +1,7 @@
 Imports System.IO
 Imports System.Net.Mail
 Imports System.Text
+Imports System.Windows.Forms
 Imports ClosedXML.Excel
 
 Public Class cProgramFunctions
@@ -193,7 +194,7 @@ Public Class cProgramFunctions
     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 openPDF As Boolean = True, Optional optFileName As String = "", Optional endung As String = ".xlsx") 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 openPDF As Boolean = True, Optional optFileName As String = "", Optional endung As String = ".xlsx", Optional autoAdjust As Boolean = True) As String
         Try
 
             Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -229,6 +230,13 @@ Public Class cProgramFunctions
 
             End If
 
+            If autoAdjust Then
+
+                'Spaltenbreite auto:
+                wb.Worksheets(0).Columns().AdjustToContents()
+
+            End If
+
             Dim filename As String = ""
             If optFileName <> "" Then
                 filename = sPath & optFileName & endung '".xlsx"