MDM-Auswertung, cProgrammFunctions (Bondruck).

SDL/cProgramFunctions.vb

@@ -10,6 +10,7 @@ Imports System.Text.RegularExpressions
 Imports itextsharp.text.pdf
 Imports SDL.eu.europa.ec
 Imports Microsoft.Office.Interop
+Imports GrapeCity.DataVisualization.TypeScript
 
 Public Class cBerechtignungenFunctions
 
@@ -58,7 +59,13 @@ Public Class cProgramFunctions
             End If
 
             'Test
-            rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
+            If printername.toLocaleLowerCase.Contains("tm-t") Then
+                rpt.Document.Printer.PaperKind = Printing.PaperKind.Custom
+            Else
+                rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
+            End If
+
+
             rpt.Document.Printer.PrinterSettings.Copies = 1
             Dim dt1 = Now