edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

KVI, EZA BEstätigungAnm

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-16 10:32:04 +02:00
parent 9b77635ce7
commit b146619697
6 changed files with 86 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/cProgramFunctions.vb
View File

@@ -67,7 +67,10 @@ Public Class cProgramFunctions
rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
End If
'MsgBox(rpt.Document.Printer.PaperKind)
'MsgBox(rpt.Document.Printer.PaperSize.ToString)
'Return False
rpt.Document.Printer.PrinterSettings.Copies = 1
Dim dt1 = Now
@@ -83,9 +86,9 @@ Public Class cProgramFunctions
Return True
Catch ex As Exception
Try
MsgBox(ex.Message & ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Catch err2 As Exception
MsgBox(ex.Message & err2.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(err2.Message, err2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Try