Update 27.01.2018

DPM2016/Fakturierung/frmFakturierung.vb

@@ -15,6 +15,8 @@
     End Sub
 
     Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
+        If MsgBox("Fakturierung ausführen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
+
         Dim dt As New DataTable
         dt = Me.C1Abgeschlossen.DataSource
         Dim f As New frmReportView()
@@ -31,4 +33,18 @@
         f.Visible = False
         f.Close()
     End Sub
+
+    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
+        Dim f As New frmPrinterselect
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
 End Class