Laufzettel; EZABestätigung, Kafka, CBAM, KVI Report

SDL/cProgramFunctions.vb

@@ -12,6 +12,7 @@ Imports SDL.eu.europa.ec
 Imports Microsoft.Office.Interop
 Imports GrapeCity.DataVisualization.TypeScript
 Imports VERAG_PROG_ALLGEMEIN
+Imports GrapeCity.ActiveReports.Printing
 
 Public Class cBerechtignungenFunctions
 
@@ -81,7 +82,11 @@ Public Class cProgramFunctions
             rpt.Dispose()
             Return True
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            Try
+                MsgBox(ex.Message & ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind)
+            Catch err2 As Exception
+                MsgBox(ex.Message & err2.StackTrace)
+            End Try
             Return False
         End Try