Zollstopp, Anhänge Atilla, div.

Aviso/frmZollstopp.vb

@@ -19,14 +19,15 @@
         rtbZollstop.Text = SND.getNCTSAdress()
     End Sub
 
-    Private Sub btnOffnen_Click(sender As Object, e As EventArgs) Handles btnOffnen.Click
+    Private Sub btnOffnen_Click(sender As Object, e As EventArgs) Handles btnOffnen.Click, Button1.Click
         Me.Cursor = Cursors.WaitCursor
 
         Try
             Dim path = SDL.FormularManagerNEU.Zollstopp(rtbZollstop.Text, rtbEntladestelle.Text, rtbKommentare.Text, rtbAbsender.Text, rtbATANr.Text)
             If path <> "" Then
-                    Process.Start(path)
-                End If
+                If sender Is btnOffnen Then Process.Start(path)
+                If sender Is Button1 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path})
+            End If
 
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)