edv/BONManager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Printer Auswahl, ACtive Reports 15, .NET 4.8 + 64 Bit

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-20 17:09:50 +01:00
parent b0382b7814
commit fecf98344e
11 changed files with 360 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
BONManager.sln
View File

@@ -1,22 +1,31 @@
 
Microsoft Visual Studio Solution File, Format Version 12.00 Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013 # Visual Studio Version 17
VisualStudioVersion = 12.0.40629.0 VisualStudioVersion = 17.3.32929.385
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BONManager", "BONManager\BONManager.vbproj", "{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BONManager", "BONManager\BONManager.vbproj", "{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}"
EndProject EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU Debug|Any CPU = Debug|Any CPU
Debug|x64 = Debug|x64
Release|Any CPU = Release|Any CPU Release|Any CPU = Release|Any CPU
Release|x64 = Release|x64
EndGlobalSection EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution GlobalSection(ProjectConfigurationPlatforms) = postSolution
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|Any CPU.Build.0 = Debug|Any CPU {9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|x64.ActiveCfg = Debug|x64
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|x64.Build.0 = Debug|x64
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|Any CPU.ActiveCfg = Release|Any CPU {9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|Any CPU.ActiveCfg = Release|Any CPU
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|Any CPU.Build.0 = Release|Any CPU {9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|Any CPU.Build.0 = Release|Any CPU
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|x64.ActiveCfg = Release|x64
{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|x64.Build.0 = Release|x64
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE
EndGlobalSection EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {287155E2-5E91-4D19-8CD4-3933A6A3C410}
EndGlobalSection
EndGlobal EndGlobal

4
BONManager/App.config
View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8" ?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
</configSections> </configSections>
@@ -7,6 +7,6 @@
<add name="BONManager.My.MySettings.PRODConnectionString" connectionString="Data Source=YM5T001348;Initial Catalog=BON_Manager;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/> <add name="BONManager.My.MySettings.PRODConnectionString" connectionString="Data Source=YM5T001348;Initial Catalog=BON_Manager;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup> </startup>
</configuration> </configuration>

102
BONManager/BONManager.vbproj
View File

@@ -11,10 +11,26 @@
<AssemblyName>BONManager</AssemblyName> <AssemblyName>BONManager</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion> <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile />
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>x64</PlatformTarget>
<DebugSymbols>true</DebugSymbols> <DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType> <DebugType>full</DebugType>
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>
@@ -22,6 +38,7 @@
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>BONManager.xml</DocumentationFile> <DocumentationFile>BONManager.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
@@ -48,23 +65,62 @@
<PropertyGroup> <PropertyGroup>
<ApplicationIcon>bon.ico</ApplicationIcon> <ApplicationIcon>bon.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>BONManager.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Release\</OutputPath>
<DocumentationFile>BONManager.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x64</PlatformTarget>
<Prefer32Bit>true</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>5A6BD29D23A7643243CD6EFA1FEF21BAF955E653</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<TargetZone>LocalIntranet</TargetZone>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="GrapeCity.ActiveReports.Chart.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <Reference Include="GrapeCity.ActiveReports">
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath>
<Reference Include="GrapeCity.ActiveReports.Document.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
<Private>True</Private>
</Reference> </Reference>
<Reference Include="GrapeCity.ActiveReports.Export.Image.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff"> <Reference Include="GrapeCity.ActiveReports.Chart">
<Private>True</Private> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Chart.dll</HintPath>
</Reference> </Reference>
<Reference Include="GrapeCity.ActiveReports.Extensibility.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff"> <Reference Include="GrapeCity.ActiveReports.Core.Document">
<Private>True</Private> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
</Reference> </Reference>
<Reference Include="GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff"> <Reference Include="GrapeCity.ActiveReports.Document">
<Private>True</Private> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Document.dll</HintPath>
</Reference> </Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL"> <Reference Include="GrapeCity.ActiveReports.Export.Image">
<Private>True</Private> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Image.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Common">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Win">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Win.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
@@ -139,6 +195,7 @@
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile> </Compile>
<Compile Include="My Project\Resources.Designer.vb"> <Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
@@ -179,7 +236,9 @@
<EmbeddedResource Include="frmMain.resx"> <EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" /> <EmbeddedResource Include="My Project\licenses.licx">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput> <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -191,6 +250,7 @@
</EmbeddedResource> </EmbeddedResource>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -205,6 +265,18 @@
<ItemGroup> <ItemGroup>
<Content Include="bon.ico" /> <Content Include="bon.ico" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.8">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.8 %28x86 und x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

6
BONManager/My Project/Application.Designer.vb generated
View File

@@ -14,8 +14,8 @@ Option Explicit On
Namespace My Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
' '
@@ -25,7 +25,7 @@ Namespace My
Public Sub New() Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false Me.IsSingleInstance = false
Me.EnableVisualStyles = true Me.EnableVisualStyles = false
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub End Sub

4
BONManager/My Project/Application.myapp
View File

@@ -1,10 +1,10 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<MySubMain>true</MySubMain> <MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm> <MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance> <SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode> <ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles> <EnableVisualStyles>false</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode> <AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit> <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData> </MyApplicationData>

29
BONManager/My Project/Resources.Designer.vb generated
View File

@@ -1,27 +1,28 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.42000 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports System
Namespace My.Resources Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'class via a tool like ResGen or Visual Studio. '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'To add or remove a member, edit your .ResX file then rerun ResGen 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'with the /str option, or rebuild your VS project. 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary> '''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -32,7 +33,7 @@ Namespace My.Resources
Private resourceCulture As Global.System.Globalization.CultureInfo Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary> '''<summary>
''' Returns the cached ResourceManager instance used by this class. ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
@@ -46,15 +47,15 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Overrides the current thread's CurrentUICulture property for all ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' resource lookups using this strongly typed resource class. ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo Friend Property Culture() As Global.System.Globalization.CultureInfo
Get Get
Return resourceCulture Return resourceCulture
End Get End Get
Set(ByVal value As Global.System.Globalization.CultureInfo) Set
resourceCulture = value resourceCulture = value
End Set End Set
End Property End Property

6
BONManager/My Project/Settings.Designer.vb generated
View File

@@ -15,21 +15,21 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If

73
BONManager/My Project/app.manifest Normal file
View File

@@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC-Manifestoptionen
Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den
Knoten "requestedExecutionLevel" wie folgt.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert.
Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
für die Anwendung erforderlich ist.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
<applicationRequestMinimum>
<PermissionSet class="System.Security.PermissionSet" version="1" Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel, eine Aktivierung
ist nicht erforderlich. Für Windows Forms-Anwendungen für .NET Framework 4.6, die diese Einstellung aktivieren, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der Datei "app.config" auf TRUE festgelegt werden.
Hierdurch können für die Anwendung lange Pfade verwendet werden. Weitere Informationen finden Sie unter https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation.-->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
</windowsSettings>
</application>
-->
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

4
BONManager/My Project/licenses.licx
View File

@@ -1,2 +1,2 @@
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

70
BONManager/frmMain.Designer.vb generated
View File

@@ -24,7 +24,7 @@ Partial Class frmMain
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button()
Me.txtRgId = New System.Windows.Forms.TextBox() Me.txtRgId = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
@@ -41,7 +41,8 @@ Partial Class frmMain
Me.lblErr_RgIdLeer = New System.Windows.Forms.Label() Me.lblErr_RgIdLeer = New System.Windows.Forms.Label()
Me.lblErr_BtrgLeer = New System.Windows.Forms.Label() Me.lblErr_BtrgLeer = New System.Windows.Forms.Label()
Me.lblErr_BonBetrag = New System.Windows.Forms.Label() Me.lblErr_BonBetrag = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button() Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@@ -50,6 +51,7 @@ Partial Class frmMain
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.ComboBox1)
Me.pnl.Controls.Add(Me.Button3) Me.pnl.Controls.Add(Me.Button3)
Me.pnl.Controls.Add(Me.Label5) Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.txtRgId) Me.pnl.Controls.Add(Me.txtRgId)
@@ -72,21 +74,22 @@ Partial Class frmMain
Me.pnl.Size = New System.Drawing.Size(453, 208) Me.pnl.Size = New System.Drawing.Size(453, 208)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Label5 'Button3
' '
Me.Label5.AutoSize = True Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Label5.Location = New System.Drawing.Point(-32, 74) Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label5.Name = "Label5" Me.Button3.Location = New System.Drawing.Point(155, 136)
Me.Label5.Size = New System.Drawing.Size(206, 31) Me.Button3.Name = "Button3"
Me.Label5.TabIndex = 1 Me.Button3.Size = New System.Drawing.Size(79, 28)
Me.Label5.Text = "Rechnungs-Nr.:" Me.Button3.TabIndex = 15
Me.Label5.Visible = False Me.Button3.Text = "ADMIN"
Me.Button3.UseVisualStyleBackColor = False
' '
'txtRgId 'txtRgId
' '
Me.txtRgId.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtRgId.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtRgId.Location = New System.Drawing.Point(180, 71) Me.txtRgId.Location = New System.Drawing.Point(216, 28)
Me.txtRgId.Name = "txtRgId" Me.txtRgId.Name = "txtRgId"
Me.txtRgId.Size = New System.Drawing.Size(100, 38) Me.txtRgId.Size = New System.Drawing.Size(100, 38)
Me.txtRgId.TabIndex = 2 Me.txtRgId.TabIndex = 2
@@ -97,9 +100,9 @@ Partial Class frmMain
Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button2.Location = New System.Drawing.Point(6, 168) Me.Button2.Location = New System.Drawing.Point(6, 136)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(145, 28) Me.Button2.Size = New System.Drawing.Size(143, 28)
Me.Button2.TabIndex = 13 Me.Button2.TabIndex = 13
Me.Button2.Text = "Liste ausg. Bons" Me.Button2.Text = "Liste ausg. Bons"
Me.Button2.UseVisualStyleBackColor = False Me.Button2.UseVisualStyleBackColor = False
@@ -109,10 +112,10 @@ Partial Class frmMain
Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button1.Location = New System.Drawing.Point(6, 136) Me.Button1.Location = New System.Drawing.Point(6, 104)
Me.Button1.Margin = New System.Windows.Forms.Padding(0) Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(145, 28) Me.Button1.Size = New System.Drawing.Size(143, 28)
Me.Button1.TabIndex = 12 Me.Button1.TabIndex = 12
Me.Button1.Text = "Bon Storno" Me.Button1.Text = "Bon Storno"
Me.Button1.UseVisualStyleBackColor = False Me.Button1.UseVisualStyleBackColor = False
@@ -143,7 +146,7 @@ Partial Class frmMain
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(152, 80) Me.Label3.Location = New System.Drawing.Point(156, 80)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(147, 31) Me.Label3.Size = New System.Drawing.Size(147, 31)
Me.Label3.TabIndex = 6 Me.Label3.TabIndex = 6
@@ -153,7 +156,7 @@ Partial Class frmMain
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(62, 37) Me.Label2.Location = New System.Drawing.Point(66, 37)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(237, 31) Me.Label2.Size = New System.Drawing.Size(237, 31)
Me.Label2.TabIndex = 3 Me.Label2.TabIndex = 3
@@ -263,17 +266,24 @@ Partial Class frmMain
Me.lblErr_BonBetrag.Text = "Der Bon-Betrag muss größer 0 sein!" Me.lblErr_BonBetrag.Text = "Der Bon-Betrag muss größer 0 sein!"
Me.lblErr_BonBetrag.Visible = False Me.lblErr_BonBetrag.Visible = False
' '
'Button3 'ComboBox1
' '
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke Me.ComboBox1.FormattingEnabled = True
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.ComboBox1.Location = New System.Drawing.Point(6, 175)
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.ComboBox1.Name = "ComboBox1"
Me.Button3.Location = New System.Drawing.Point(158, 168) Me.ComboBox1.Size = New System.Drawing.Size(228, 21)
Me.Button3.Name = "Button3" Me.ComboBox1.TabIndex = 16
Me.Button3.Size = New System.Drawing.Size(76, 28) '
Me.Button3.TabIndex = 15 'Label5
Me.Button3.Text = "ADMIN" '
Me.Button3.UseVisualStyleBackColor = False Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(4, 31)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(206, 31)
Me.Label5.TabIndex = 1
Me.Label5.Text = "Rechnungs-Nr.:"
Me.Label5.Visible = False
' '
'frmMain 'frmMain
' '
@@ -308,9 +318,9 @@ Partial Class frmMain
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtRgId As System.Windows.Forms.TextBox Friend WithEvents txtRgId As System.Windows.Forms.TextBox
Friend WithEvents lblErr_RgIdLeer As System.Windows.Forms.Label Friend WithEvents lblErr_RgIdLeer As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Label5 As Label
End Class End Class

142
BONManager/frmMain.vb
View File

@@ -1,4 +1,5 @@
Imports System.Drawing.Printing Imports System.Drawing.Printing
Imports GrapeCity.ActiveReports
Public Class frmMain Public Class frmMain
Public TESTSYSTEM As Boolean = False Public TESTSYSTEM As Boolean = False
@@ -40,31 +41,56 @@ Public Class frmMain
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim rpt As New rptBeleg Dim rpt As New rptBeleg
rpt.lblBetrag.Text = CDbl(bon.bon_betrag_Bon).ToString("C") rpt.lblBetrag.Text = CDbl(bon.bon_betrag_Bon).ToString("C")
rpt.lblAusstelldatum.Text = CDate(bon.bon_datum).ToShortDateString rpt.lblAusstelldatum.Text = CDate(bon.bon_datum).ToShortDateString
rpt.lblGueltigBis.Text = CDate(bon.bon_gueltigBis).ToShortDateString rpt.lblGueltigBis.Text = CDate(bon.bon_gueltigBis).ToShortDateString
rpt.lblBonId.Text = bon.bon_Id rpt.lblBonId.Text = bon.bon_Id
rpt.lblRgId.Text = bon.bon_RgId rpt.lblRgId.Text = bon.bon_RgId
If printername = "" Then printername = ComboBox1.Text
initPrinterName() 'If printername = "" Then
' MsgBox("Kein Drucker")
' Exit Sub
' ' initPrinterName()
'End If
If printername <> "" Then
rpt.Document.Printer.PrinterName = printername
Else
Dim p As New PrintDialog
If p.ShowDialog() = DialogResult.OK Then
printername = p.PrinterSettings.PrinterName
Else
rpt.Dispose()
End If
End If End If
Dim print As New frmPrint rpt.Run(False)
print.WindowState = FormWindowState.Minimized rpt.Document.Printer.PrinterSettings.Copies = 1
print.Visible = False
AddHandler print.Viewer.LoadCompleted, Sub() If Not rpt.Document.Print(False, False) Then
If printername <> "" Then print.Viewer.Document.Printer.PrinterName = printername
If Not print.Viewer.Print(False) Then
MsgBox("Problem beim Drucken.") MsgBox("Problem beim Drucken.")
End If End If
print.Close() rpt.Dispose()
End Sub
print.Viewer.LoadDocument(rpt) 'Dim print As New frmPrint
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous 'print.WindowState = FormWindowState.Minimized
print.Show() 'print.Visible = False
'AddHandler print.Viewer.LoadCompleted, Sub()
' If printername <> "" Then
' rpt.Document.Printer.PrinterName = printername
' 'print.Viewer.Document.Printer.PrinterName = printername
' End If
' If Not print.Viewer.Print(False) Then
' MsgBox("Problem beim Drucken.")
' End If
' print.Close()
' End Sub
'print.Viewer.LoadDocument(rpt)
'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
'print.Show()
@@ -76,31 +102,32 @@ Public Class frmMain
Me.WindowState = FormWindowState.Minimized Me.WindowState = FormWindowState.Minimized
End Sub End Sub
Sub initPrinterName() 'Sub initPrinterName()
Dim sPrinters As New ArrayList ' Dim sPrinters As New ArrayList
For Each sPrinter As String In PrinterSettings.InstalledPrinters ' For Each sPrinter As String In PrinterSettings.InstalledPrinters
sPrinters.Add(sPrinter) ' sPrinters.Add(sPrinter)
'MsgBox(sPrinter) ' 'MsgBox(sPrinter)
Next ' Next
' Array sortieren ' ' Array sortieren
sPrinters.Sort() ' sPrinters.Sort()
Dim oPS As New System.Drawing.Printing.PrinterSettings ' Dim oPS As New System.Drawing.Printing.PrinterSettings
For i As Integer = 0 To sPrinters.Count - 1 ' For i As Integer = 0 To sPrinters.Count - 1
If sPrinters(i).ToString.Contains("EPSON") Then ' If sPrinters(i).ToString.Contains("EPSON") Then
'MsgBox("EPSON!!!!") ' 'MsgBox("EPSON!!!!")
printername = sPrinters(i) ' printername = sPrinters(i)
End If
Next
' For Each printer In PrinterSettings.InstalledPrinters
'If printer.ToString.Contains("EPSON") Then
'print.Viewer.Document.Printer.PrinterName = printer
' End If ' End If
' Next ' Next
End Sub
' ' For Each printer In PrinterSettings.InstalledPrinters
' 'If printer.ToString.Contains("EPSON") Then
' 'print.Viewer.Document.Printer.PrinterName = printer
' 'End If
' ' Next
'End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
initPrinterName() ' initPrinterName()
initDrucker(ComboBox1, "EPSON")
Me.Location = New Point(My.Computer.Screen.WorkingArea.Width / 2 - (Me.Width / 2) - 100, My.Computer.Screen.WorkingArea.Height - Me.Height) Me.Location = New Point(My.Computer.Screen.WorkingArea.Width / 2 - (Me.Width / 2) - 100, My.Computer.Screen.WorkingArea.Height - Me.Height)
End Sub End Sub
@@ -128,4 +155,49 @@ Public Class frmMain
frmAdminFunc.ShowDialog(Me) frmAdminFunc.ShowDialog(Me)
End If End If
End Sub End Sub
Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "", Optional usePRINTER_LIST As Boolean = True)
' alle installierten Drucker ermitteln und
' in in ein ArrayList-Objekt speichern
Dim sPrinters As ArrayList
sPrinters = New ArrayList
For Each sPrinter As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
sPrinters.Add(sPrinter)
Next
' Array sortieren
sPrinters.Sort()
' jetzt alle Drucker in sortierter Reihenfolge in einer
' ComboBox zur Auswahl anbieten
For i As Integer = 0 To sPrinters.Count - 1
cboPrinter.Items.Add(sPrinters(i))
Next
If sPrinters.Count > 0 Then
cboPrinter.SelectedIndex = 0
If srch <> "" Then
For Each i In cboPrinter.Items
If i.ToString.ToUpper.Contains(srch.ToUpper) Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
End If
'Standard-Drucker:
Dim oPS As New System.Drawing.Printing.PrinterSettings
For Each i In cboPrinter.Items
If i.ToString.ToUpper.Contains(oPS.PrinterName.ToUpper) Then ' If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
End If
End Sub
End Class End Class