Laufzettel

Aviso/frmLaufzettel.vb

@@ -157,12 +157,14 @@ Public Class frmLaufzettel
             cbxDigitalLZ.Enabled = True
             dgvDigitalMailanfügen.Enabled = True
             btnDIGITAL.Enabled = True
+            cbxAktenzettelDruck.Enabled = False
             cbxDigitalLZ.Checked = True
             CheckBox2.Checked = False
             cbxDokumenteDrucken.Checked = False
             pnlZumZoll.Visible = False
         Else
             btnLaufzettelDrucken.Enabled = True
+            cbxAktenzettelDruck.Enabled = True
         End If
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -213,6 +215,16 @@ Public Class frmLaufzettel
         End If
 
         doLZ(False)
+
+        If cbxAktenzettelDruck.Checked Then
+            Dim Printername = ""
+            Dim oPS As New System.Drawing.Printing.PrinterSettings
+            Try
+                Printername = oPS.PrinterName
+            Catch ex As System.Exception
+            End Try
+            usrcntlAktDetails.tread_printAlleAktendeckel(AvisoID, Printername)
+        End If
         Me.Close()
     End Sub
 
@@ -594,4 +606,8 @@ Public Class frmLaufzettel
         End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktenzettelDruck.CheckedChanged
+
+    End Sub
 End Class