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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-12-06 11:52:36 +01:00
parent 50df683d3b
commit 273a0c5b29
71 changed files with 1305 additions and 270 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1071,7 +1071,7 @@ Public Class frmFormulare
' alle installierten Drucker ermitteln und
' in in ein ArrayList-Objekt speichern
Dim sPrinters As New ArrayList
For Each sPrinter As String In PrinterSettings.InstalledPrinters
For Each sPrinter As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
sPrinters.Add(sPrinter)
Next
@@ -2797,7 +2797,7 @@ Public Class FormularManagerNEU
'VE_ für Verpflichtungserklärung
Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("VE-" & If(usrCntl.AVISOID Is Nothing, 0, usrCntl.AVISOID) & "", 1, True, 20)
Dim bc As New List(Of VERAG_PROG_ALLGEMEIN.barcodeToPdf)
Dim b = New VERAG_PROG_ALLGEMEIN.barcodeToPdf(barcodeLKW, 20, 200, 20, 20, 1, Drawing.RotateFlipType.Rotate270FlipNone)
Dim b = New VERAG_PROG_ALLGEMEIN.barcodeToPdf(barcodeLKW, 20, 200, 20, 20, 1, System.Drawing.RotateFlipType.Rotate270FlipNone)
bc.Add(b)
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)