neu

2019-11-06 16:33:03 +01:00
parent c5595a729a
commit 99ba5f4513
17 changed files with 521 additions and 92 deletions
--- a/SDL/cProgramFunctions.vb
+++ b/SDL/cProgramFunctions.vb
@@ -38,9 +38,9 @@ End Class

 Public Class cProgramFunctions

-    Public Shared Function printRpt(rpt As GrapeCity.ActiveReports.SectionReport, printername As String) As Boolean
+    Public Shared Function printRpt(rpt As GrapeCity.ActiveReports.SectionReport, printername As String, Optional runReport As Boolean = True) As Boolean
        Try
-            rpt.Run(False)
+            If runReport Then rpt.Run(False)
            rpt.Document.Printer.PrinterSettings.Copies = 1
            If printername <> "" Then
                rpt.Document.Printer.PrinterName = printername