You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.2 KiB
50 lines
1.2 KiB
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
|