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
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1044,7 +1044,7 @@ Public Class frmFormulare
End Try
ElseIf sender Is btnPrint Then
'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintFile(dest_path, "")
If dest_path.EndsWith("PDF") Then
If dest_path.ToUpper.EndsWith("PDF") Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({dest_path}, cboPrinter.SelectedItem.ToString)
Else
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(dest_path, cboPrinter.SelectedItem.ToString)
@@ -1107,23 +1107,34 @@ Public Class frmFormulare
Next
If sPrinters.Count > 0 Then
cboPrinter.SelectedIndex = 0
If srch <> "" Then
For Each i In cboPrinter.Items
If i.ToString.ToUpper.Contains(srch.ToUpper) Then
If i.ToString.ToLower.Contains(srch.ToLower) Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
For Each i In cboPrinter.Items
If i.ToString.ToLower = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
End If
For Each i In cboPrinter.Items
If i.ToString = oPS.PrinterName Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
End If
If i.ToString = oPS.PrinterName Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
End If
End If
End Sub