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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/Classes/cSendungsoptions.vb
View File

@@ -440,6 +440,7 @@ Public Class SendungOptions
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
rpt.Document.Printer.PrinterName = ""
rpt.Document.CacheToDisk = False
'rpt.Document.CacheToDisk = True
@@ -454,9 +455,9 @@ Public Class SendungOptions
ElseIf art = "PRINT" Or art = "DIALOG" Then
rpt.Run(False)
' If Printername = "" Then rpt.Dispose() : Exit Sub
rpt.Document.Printer.PrinterName = Printername
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False)
' rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, false) --> vorher usePrintingThread false...
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, True)
rpt.Dispose()
'rpt.Document.Dispose()
' rpt.Dispose()