Laufzettel fix
This commit is contained in:
@@ -514,9 +514,9 @@ Public Class frmLaufzettel
|
|||||||
|
|
||||||
For Each p In paths
|
For Each p In paths
|
||||||
If p <> "" Then
|
If p <> "" Then
|
||||||
If Not System.IO.Directory.Exists(p) Then Continue For
|
'If Not System.IO.Directory.Exists(p) Then Continue For
|
||||||
Dim fileInfo As New IO.FileInfo(p)
|
'Dim fileInfo As New IO.FileInfo(p)
|
||||||
If Not fileInfo.Exists Then Continue For
|
'If Not fileInfo.Exists Then Continue For
|
||||||
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({p}, cboPrinter.SelectedItem.ToString)
|
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({p}, cboPrinter.SelectedItem.ToString)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -543,11 +543,11 @@ Public Class frmLaufzettel
|
|||||||
Else
|
Else
|
||||||
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck)
|
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck)
|
||||||
If path <> "" Then
|
If path <> "" Then
|
||||||
Dim fileInfo As New IO.FileInfo(path)
|
'Dim fileInfo As New IO.FileInfo(path)
|
||||||
If fileInfo.Exists Then
|
'If fileInfo.Exists Then
|
||||||
'Process.Start(path)
|
'Process.Start(path)
|
||||||
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
|
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
|
||||||
End If
|
'End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user