Printer Auswahl, ACtive Reports 15, .NET 4.8 + 64 Bit
This commit is contained in:
@@ -1,22 +1,31 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 2013
|
||||
VisualStudioVersion = 12.0.40629.0
|
||||
# Visual Studio Version 17
|
||||
VisualStudioVersion = 17.3.32929.385
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BONManager", "BONManager\BONManager.vbproj", "{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Debug|x64 = Debug|x64
|
||||
Release|Any CPU = Release|Any CPU
|
||||
Release|x64 = Release|x64
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{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|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.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
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||
SolutionGuid = {287155E2-5E91-4D19-8CD4-3933A6A3C410}
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
</configSections>
|
||||
<connectionStrings>
|
||||
<add name="BONManager.My.MySettings.TESTConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;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" />
|
||||
<add name="BONManager.My.MySettings.TESTConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;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>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
@@ -11,10 +11,26 @@
|
||||
<AssemblyName>BONManager</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<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 Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
@@ -22,6 +38,7 @@
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>BONManager.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
@@ -48,23 +65,62 @@
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>bon.ico</ApplicationIcon>
|
||||
</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>
|
||||
<Reference Include="GrapeCity.ActiveReports.Chart.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="GrapeCity.ActiveReports.Document.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
|
||||
<Private>True</Private>
|
||||
<Reference Include="GrapeCity.ActiveReports">
|
||||
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="GrapeCity.ActiveReports.Export.Image.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
|
||||
<Private>True</Private>
|
||||
<Reference Include="GrapeCity.ActiveReports.Chart">
|
||||
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Chart.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="GrapeCity.ActiveReports.Extensibility.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
|
||||
<Private>True</Private>
|
||||
<Reference Include="GrapeCity.ActiveReports.Core.Document">
|
||||
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
|
||||
<Private>True</Private>
|
||||
<Reference Include="GrapeCity.ActiveReports.Document">
|
||||
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Document.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||
<Private>True</Private>
|
||||
<Reference Include="GrapeCity.ActiveReports.Export.Image">
|
||||
<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 Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
@@ -139,6 +195,7 @@
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
@@ -179,7 +236,9 @@
|
||||
<EmbeddedResource Include="frmMain.resx">
|
||||
<DependentUpon>frmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\licenses.licx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
@@ -191,6 +250,7 @@
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\app.manifest" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
@@ -205,6 +265,18 @@
|
||||
<ItemGroup>
|
||||
<Content Include="bon.ico" />
|
||||
</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" />
|
||||
<!-- 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.
|
||||
|
||||
6
BONManager/My Project/Application.Designer.vb
generated
6
BONManager/My Project/Application.Designer.vb
generated
@@ -14,8 +14,8 @@ Option Explicit On
|
||||
|
||||
Namespace My
|
||||
|
||||
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
|
||||
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
|
||||
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
|
||||
' 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
|
||||
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
|
||||
'
|
||||
@@ -25,7 +25,7 @@ Namespace My
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.EnableVisualStyles = false
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
@@ -1,10 +1,10 @@
|
||||
<?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>
|
||||
<MainForm>frmMain</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<EnableVisualStyles>false</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
39
BONManager/My Project/Resources.Designer.vb
generated
39
BONManager/My Project/Resources.Designer.vb
generated
@@ -1,30 +1,31 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
@@ -32,9 +33,9 @@ Namespace My.Resources
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</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
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
@@ -46,15 +47,15 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</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
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
6
BONManager/My Project/Settings.Designer.vb
generated
6
BONManager/My Project/Settings.Designer.vb
generated
@@ -15,21 +15,21 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<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)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
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
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<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
|
||||
My.Settings.Save()
|
||||
End If
|
||||
|
||||
73
BONManager/My Project/app.manifest
Normal file
73
BONManager/My Project/app.manifest
Normal 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>
|
||||
@@ -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.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.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
|
||||
|
||||
70
BONManager/frmMain.Designer.vb
generated
70
BONManager/frmMain.Designer.vb
generated
@@ -24,7 +24,7 @@ Partial Class frmMain
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||
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.Button2 = 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_BtrgLeer = 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.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
@@ -50,6 +51,7 @@ Partial Class frmMain
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
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.Label5)
|
||||
Me.pnl.Controls.Add(Me.txtRgId)
|
||||
@@ -72,21 +74,22 @@ Partial Class frmMain
|
||||
Me.pnl.Size = New System.Drawing.Size(453, 208)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'Label5
|
||||
'Button3
|
||||
'
|
||||
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(-32, 74)
|
||||
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
|
||||
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Button3.Location = New System.Drawing.Point(155, 136)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(79, 28)
|
||||
Me.Button3.TabIndex = 15
|
||||
Me.Button3.Text = "ADMIN"
|
||||
Me.Button3.UseVisualStyleBackColor = False
|
||||
'
|
||||
'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.Location = New System.Drawing.Point(180, 71)
|
||||
Me.txtRgId.Location = New System.Drawing.Point(216, 28)
|
||||
Me.txtRgId.Name = "txtRgId"
|
||||
Me.txtRgId.Size = New System.Drawing.Size(100, 38)
|
||||
Me.txtRgId.TabIndex = 2
|
||||
@@ -97,9 +100,9 @@ Partial Class frmMain
|
||||
Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
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.Size = New System.Drawing.Size(145, 28)
|
||||
Me.Button2.Size = New System.Drawing.Size(143, 28)
|
||||
Me.Button2.TabIndex = 13
|
||||
Me.Button2.Text = "Liste ausg. Bons"
|
||||
Me.Button2.UseVisualStyleBackColor = False
|
||||
@@ -109,10 +112,10 @@ Partial Class frmMain
|
||||
Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
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.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.Text = "Bon Storno"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
@@ -143,7 +146,7 @@ Partial Class frmMain
|
||||
'
|
||||
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.Location = New System.Drawing.Point(152, 80)
|
||||
Me.Label3.Location = New System.Drawing.Point(156, 80)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(147, 31)
|
||||
Me.Label3.TabIndex = 6
|
||||
@@ -153,7 +156,7 @@ Partial Class frmMain
|
||||
'
|
||||
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.Location = New System.Drawing.Point(62, 37)
|
||||
Me.Label2.Location = New System.Drawing.Point(66, 37)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(237, 31)
|
||||
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.Visible = False
|
||||
'
|
||||
'Button3
|
||||
'ComboBox1
|
||||
'
|
||||
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.Button3.Location = New System.Drawing.Point(158, 168)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(76, 28)
|
||||
Me.Button3.TabIndex = 15
|
||||
Me.Button3.Text = "ADMIN"
|
||||
Me.Button3.UseVisualStyleBackColor = False
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(6, 175)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(228, 21)
|
||||
Me.ComboBox1.TabIndex = 16
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
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
|
||||
'
|
||||
@@ -308,9 +318,9 @@ Partial Class frmMain
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
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 lblErr_RgIdLeer As System.Windows.Forms.Label
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
|
||||
Friend WithEvents ComboBox1 As ComboBox
|
||||
Friend WithEvents Label5 As Label
|
||||
End Class
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
Imports System.Drawing.Printing
|
||||
Imports GrapeCity.ActiveReports
|
||||
|
||||
Public Class frmMain
|
||||
Public TESTSYSTEM As Boolean = False
|
||||
@@ -40,31 +41,56 @@ Public Class frmMain
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim rpt As New rptBeleg
|
||||
|
||||
|
||||
rpt.lblBetrag.Text = CDbl(bon.bon_betrag_Bon).ToString("C")
|
||||
rpt.lblAusstelldatum.Text = CDate(bon.bon_datum).ToShortDateString
|
||||
rpt.lblGueltigBis.Text = CDate(bon.bon_gueltigBis).ToShortDateString
|
||||
rpt.lblBonId.Text = bon.bon_Id
|
||||
rpt.lblRgId.Text = bon.bon_RgId
|
||||
|
||||
If printername = "" Then
|
||||
initPrinterName()
|
||||
printername = ComboBox1.Text
|
||||
'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
|
||||
|
||||
Dim print As New frmPrint
|
||||
print.WindowState = FormWindowState.Minimized
|
||||
print.Visible = False
|
||||
AddHandler print.Viewer.LoadCompleted, Sub()
|
||||
If printername <> "" Then print.Viewer.Document.Printer.PrinterName = printername
|
||||
If Not print.Viewer.Print(False) Then
|
||||
MsgBox("Problem beim Drucken.")
|
||||
End If
|
||||
print.Close()
|
||||
End Sub
|
||||
rpt.Run(False)
|
||||
rpt.Document.Printer.PrinterSettings.Copies = 1
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
If Not rpt.Document.Print(False, False) Then
|
||||
MsgBox("Problem beim Drucken.")
|
||||
End If
|
||||
rpt.Dispose()
|
||||
|
||||
'Dim print As New frmPrint
|
||||
'print.WindowState = FormWindowState.Minimized
|
||||
'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
|
||||
End Sub
|
||||
|
||||
Sub initPrinterName()
|
||||
Dim sPrinters As New ArrayList
|
||||
For Each sPrinter As String In PrinterSettings.InstalledPrinters
|
||||
sPrinters.Add(sPrinter)
|
||||
'MsgBox(sPrinter)
|
||||
Next
|
||||
' Array sortieren
|
||||
sPrinters.Sort()
|
||||
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||||
For i As Integer = 0 To sPrinters.Count - 1
|
||||
If sPrinters(i).ToString.Contains("EPSON") Then
|
||||
'MsgBox("EPSON!!!!")
|
||||
printername = sPrinters(i)
|
||||
End If
|
||||
Next
|
||||
'Sub initPrinterName()
|
||||
' Dim sPrinters As New ArrayList
|
||||
' For Each sPrinter As String In PrinterSettings.InstalledPrinters
|
||||
' sPrinters.Add(sPrinter)
|
||||
' 'MsgBox(sPrinter)
|
||||
' Next
|
||||
' ' Array sortieren
|
||||
' sPrinters.Sort()
|
||||
' Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||||
' For i As Integer = 0 To sPrinters.Count - 1
|
||||
' If sPrinters(i).ToString.Contains("EPSON") Then
|
||||
' 'MsgBox("EPSON!!!!")
|
||||
' 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
|
||||
' 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
|
||||
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)
|
||||
End Sub
|
||||
|
||||
@@ -128,4 +155,49 @@ Public Class frmMain
|
||||
frmAdminFunc.ShowDialog(Me)
|
||||
End If
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user