update 20241225

Plugin_Printersettings/Plugin.vb

@@ -0,0 +1,49 @@
+Imports PluginAPI
+Imports System
+
+
+Public Class Plugin
+
+
+    Public Function Start(ByVal App As Object, Fnkt As String, Parameters As Object)
+        Try
+            Select Case UCase(Fnkt)
+                Case "FORMULARAKTUALISIEREN"
+                Case "PRINTERSETTINGS"
+                    Try
+                        Dim f As New frmPrinterSettings(App, Parameters)
+                        f.ShowDialog()
+                        f.Dispose()
+                        f.Dispose()
+                        f = Nothing
+
+                    Catch ex As Exception
+
+                    End Try
+                    Finalize()
+                Case "PRINT_COLOR"
+                    Dim f As New frmPrinterSettings(App, Parameters)
+                    f.Set_Printer_To_Color()
+                    f.Dispose()
+                    f = Nothing
+                Case "PRINT_BW"
+                    Dim f As New frmPrinterSettings(App, Parameters)
+                    f.Set_Printer_To_BW()
+                    f.Dispose()
+                    f = Nothing
+
+                Case Else
+
+                    Finalize()
+                    Exit Function
+            End Select
+
+        Catch ex As Exception
+
+        End Try
+        Finalize()
+
+    End Function
+
+
+End Class