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

SDL Brief BugFix

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-21 09:33:14 +01:00
parent b89a4c9f5b
commit 53f4ec87bd
5 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/cProgramFunctions.vb
View File

@@ -45,7 +45,6 @@ Public Class cProgramFunctions
' System.Diagnostics.Debug.WriteLine("Hier 3: " & Now.ToString("HH:mm:ss.ffff"))
If runReport Then rpt.Run(False)
' System.Diagnostics.Debug.WriteLine("Hier 4: " & Now.ToString("HH:mm:ss.ffff"))
rpt.Document.Printer.PrinterSettings.Copies = 1
If printername <> "" Then
rpt.Document.Printer.PrinterName = printername
Else
@@ -60,6 +59,7 @@ Public Class cProgramFunctions
'Test
rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
rpt.Document.Printer.PrinterSettings.Copies = 1
Dim dt1 = Now
System.Diagnostics.Debug.WriteLine("Report START: " & dt1.ToString("HH:mm:ss.ffff"))