Drucken von mehreren Seiten

Akanel · 11. Dezember 2017, 09:12

Hallo zusammen,

ich habe ein Problem mit dem Drucken mehrerer Seiten. Ich habe mir auch schon das Tutorial von @RodFromGermany Drucken mehrseitiger Dokumente durchgelesen, aber schaffe es nicht das auf mein Projekt umzusetzen.

So sieht meine PrintPage bisher aus.

Spoiler anzeigen

VB.NET-Quellcode

Dim g = e.Graphics
Dim _font = New Font("Segoe UI", 10)
Dim _fontBold = New Font("Segoe UI", 10, FontStyle.Bold)
Dim _fontHead = New Font("Segoe UI", 12)
Dim _fontSmall = New Font("Segoe UI", 8)
Dim _Brush = Brushes.Black
Dim x As Single = e.MarginBounds.Left
Dim y As Single = e.MarginBounds.Top
Dim LineHeight As Single = _font.GetHeight(e.Graphics)
Dim logo As Bitmap = My.Resources.LogoAGH
PrintDocument1.DocumentName = "Pläne vom " & dtpDruckenVon.Value.ToShortDateString & " bis " & dtpDruckenBis.Value.ToShortDateString
g.DrawImage(logo, x + 900, y - 70, 130, 40)
g.DrawString("Hygienepläne", _fontHead, _Brush, x - 70, y - 70)
g.DrawString("Monatsstatistik Pläne vom " & dtpDruckenVon.Value.ToShortDateString & " bis " & dtpDruckenBis.Value.ToShortDateString, _font, _Brush, x - 70, y - 40)
g.DrawString("Nr", _fontBold, _Brush, x - 70, y + 10)
g.DrawString("Einstelldatum", _fontBold, _Brush, x - 40, y + 10)
g.DrawString("Einrichtung", _fontBold, _Brush, x + 80, y + 10)
g.DrawString("Bemerkung", _fontBold, _Brush, x + 390, y + 10)
g.DrawString("Uploaddatum", _fontBold, _Brush, x + 810, y + 10)
g.DrawString("VertriebMA", _fontBold, _Brush, x + 920, y + 10)
g.DrawLine(Pens.Black, x - 70, y + 30, x + 1030, y + 30)
For i = 0 To PlanBindingSource.Count - 1
Dim rwPlan = PlanBindingSource.At(Of PlanRow)(i)
Dim rwVertriebler = rwPlan.VertriebmitarbeiterRow
If rwPlan.berechnen = True Then
g.DrawString(rwPlan.Nr.ToString, _font, _Brush, x - 70, y + 40)
g.DrawString(rwPlan.Einstelldatum.ToShortDateString, _font, _Brush, x - 30, y + 40)
g.DrawString(rwPlan.Einrichtungsname.ToString, _font, _Brush, x + 80, y + 40)
g.DrawString(rwPlan.Bemerkung.ToString, _font, _Brush, x + 390, y + 40)
g.DrawString(rwPlan.Uploaddatum.ToShortDateString, _font, _Brush, x + 820, y + 40)
g.DrawString(rwVertriebler.Name.ToString, _font, _Brush, x + 920, y + 40)
y += LineHeight + 10
End If
Next
g.DrawString("gedruckt am " & Date.Today.ToShortDateString & " um: " & DateTime.Now.ToShortTimeString, _fontSmall, _Brush, New Point(980, 800))

Nun habe ich keinen Ansatz wie ich es hinbekomme das diese Tabelle , wenn nötig, auf 2 Seiten gedruckt werden kann.
Vielleicht kann mir hier jemand Tipps geben wie ich es gescheit anstelle.

Der ein oder andere wird sich vielleicht an den Kopf fassen und denken "WTF ist das für ein Müll". Wenn dem so ist, dass mein Code ranz ist, dann bin ich immer offen für Verbesserungsvorschläge.

Danke.

Blackn0va · 11. Dezember 2017, 09:38

Hallo @Akanel

schau dir mal forlgenden code an, damit sende ich x beliebig viele PDF´s an einen Drucker mit x Seiten

Spoiler anzeigen

VB.NET-Quellcode

'*** Option Strict ON, verhindert eine unsaubere Programmierung ***
Option Strict On
Imports System.Drawing.Printing
Imports System.IO
Imports System.Net.Sockets
Imports System.Windows
Imports System.Threading
''' <summary>
''' *** Ein Programm, mithilfe man per DragAnd Drop oder OpenfileDialog bis zu 65.000 PDF´s an einen Drucker Senden kann ***
''' </summary>
Public Class Form1
'*** Globale Dimensionierung einer MessageBoxResult ***
Dim retval As DialogResult
'*** 3 Threads Deklarieren ***
Private DruckerHPFThread As Thread
Private DruckerNY77Thread As Thread
Private DruckerRFPThread As Thread
Private ProgressBarThread As Thread
''' <summary>
''' *** Drucken ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub CmdDrucken_Click(sender As Object, e As EventArgs) Handles cmdDrucken.Click
'*** MEssagebox mit einer returnValue ***
retval = MessageBox.Show("Möchten Sie wirklich Drucken?", "Hinweis", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'*** Wennn in der Messsagebox Ja geklickt wurde dann.... ***
If retval = vbYes And cboDrucker.SelectedIndex > 0 And ListBox1.Items.Count > 0 Then
'*** Wenn Index 0 gewählt dann Ignorieren, wennn index größer 0 Dann Drucken ***
If cboDrucker.SelectedIndex = 0 Then
'*** RFP ***
ElseIf cboDrucker.SelectedIndex = 1 Then
'*** RFP Backoffice ***
'*** Dem Thread seine Sub zuweisen ***
Dim DruckerRFPThread As New Threading.Thread(AddressOf DruckerRFP)
Dim ProgressBarThread As New Threading.Thread(AddressOf ProgressBar)
DruckerRFPThread.IsBackground = True
DruckerRFPThread.Priority = Threading.ThreadPriority.Normal
DruckerRFPThread.Start()
ProgressBarThread.IsBackground = True
ProgressBarThread.Priority = Threading.ThreadPriority.Normal
ProgressBarThread.Start()
System.Threading.Thread.Sleep(200)
'*** NY77 ***
ElseIf cboDrucker.SelectedIndex = 2 Then
'*** NY77 Backoffice ***
'*** Dem Thread seine Sub zuweisen ***
Dim DruckerNY77Thread As New Threading.Thread(AddressOf DruckerNY77)
Dim ProgressBarThread As New Threading.Thread(AddressOf ProgressBar)
DruckerNY77Thread.IsBackground = True
DruckerNY77Thread.Priority = Threading.ThreadPriority.Normal
DruckerNY77Thread.Start()
ProgressBarThread.IsBackground = True
ProgressBarThread.Priority = Threading.ThreadPriority.Normal
ProgressBarThread.Start()
System.Threading.Thread.Sleep(200)
'*** HPF ***
ElseIf cboDrucker.SelectedIndex = 3 Then
'*** Dem Thread seine Sub zuweisen ***
Dim DruckerHPFThread As New Threading.Thread(AddressOf DruckerHPF)
Dim ProgressBarThread As New Threading.Thread(AddressOf ProgressBar)
DruckerHPFThread.IsBackground = True
DruckerHPFThread.Priority = Threading.ThreadPriority.Normal
DruckerHPFThread.Start()
ProgressBarThread.IsBackground = True
ProgressBarThread.Priority = Threading.ThreadPriority.Normal
ProgressBarThread.Start()
System.Threading.Thread.Sleep(200)
End If
'** Textfeld nach abschiocken an den Drucker wieder leeren ***
Else
MessageBox.Show("Bitte Wählen Sie einen Drucker aus und fügen Sie eine PDF hinzu.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
'*** HPF Backoffice ***
Private Sub DruckerHPF()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerHPF())
Return
End If
'** Deklaration eines Druckers im Lokalem netzwerk ***
Using s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
s.Connect("IP VOM DRUCKER", 9100)
For Each zeile As String In Me.ListBox1.Items
'*** Senden e ines Srings an den Drucker ****
s.SendFile(zeile)
Next
Me.ListBox1.Items.Clear()
End Using
End Sub
'*** RFP Backoffice Thread ***
Private Sub DruckerRFP()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerRFP())
Return
End If
'** Deklaration eines Druckers im Lokalem netzwerk ***
Using s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
s.Connect("IP VOM DRUCKER", 9100)
For Each zeile As String In Me.ListBox1.Items
'*** Senden e ines Srings an den Drucker ****
s.SendFile(zeile)
Next
Me.ListBox1.Items.Clear()
End Using
End Sub
'*** NY77 Backoffice Thread ***
Private Sub DruckerNY77()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.DruckerNY77())
Return
End If
'** Deklaration eines Druckers im Lokalem netzwerk ***
Using s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
s.Connect("IP VOM DRUCKER", 9100)
For Each zeile As String In Me.ListBox1.Items
'*** Senden e ines Srings an den Drucker ****
s.SendFile(zeile)
Next
Me.ListBox1.Items.Clear()
End Using
End Sub
'*** Thread für die Progressbar die den Timer startet ***
Private Sub ProgressBar()
If Me.InvokeRequired Then
Me.Invoke(Sub() Me.ProgressBar())
Return
End If
Timer1.Start()
End Sub
'*** Fertige Methoden ***
''' <summary>
''' '*** Load ereignis ListBox Füllen, Timer Starten ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub PDFPrint_Load(sender As Object, e As EventArgs) Handles MyBase.Load
''*** cboBox Befüllen ***
cboDrucker.SelectedIndex = 0
cboDrucker.DrawMode = DrawMode.OwnerDrawFixed
'*** Timer2 Starten ***
Timer2.Start()
End Sub
''' <summary>
''' *** Dateien Hinzufügen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub CmdAddFiles_Click(sender As Object, e As EventArgs) Handles cmdAddFiles.Click
'*** Multiselect Aktivieren ***
'*** Filter der Dialogbox ***
'*** Wir möchten bitte nur PDF´s sehen ***
Dim OpenFileDialog1 As New OpenFileDialog With {
.Multiselect = True,
.InitialDirectory = (Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop)),
.FileName = "",
.Filter = "PDF (*.pdf)|*.pdf|PDF (*.PDF)|*.PDF",
.FilterIndex = 2,
.RestoreDirectory = True
}
'*** FileDialog anzeigen ***
' OpenFileDialog1.ShowDialog()
Dim result = OpenFileDialog1.ShowDialog()
If result = DialogResult.OK Then
'*** Für jede Datei einen Pfad in die Richtextbox schreiben ***
For Each b As String In OpenFileDialog1.FileNames
'*** Gibt jeweils eine Zeile in der txtxBox aus ***
ListBox1.Items.Add(b)
Next
Else
End If
End Sub
''' <summary>
''' *** Drag and Drop Aktivieren ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
'*** Nur PDF´S erlauben bei Drag and Drop***
Dim s() As String = CType(e.Data.GetData("FileDrop", False), String())
For i = 0 To s.Length - 1
If s(i).ToLower().EndsWith(".pdf") Then
ListBox1.Items.Add(s(i))
End If
Next i
End Sub
''' <summary>
''' *** Drag and Drop enable und Effekt ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.All
Else
e.Effect = DragDropEffects.None
End If
End Sub
''' <summary>
''' *** Timer für die PrGBar ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'*** Progressbar Value erhöhen um jeweils 1 ***
prgBar.Increment(1)
'*** Wenn Value der ProgressBar 100 erreicht, dann Meldung ausgeben und dateien schicken ***
If prgBar.Value = 100 Then
'*** Timer stoppen ***
Timer1.Stop()
'*** Hinweis das alle dateien an den Drucker gesendet wurden ****
MessageBox.Show("Die Dateien wurden gedruckt.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
'*** Value zurücksetzen ***
prgBar.Value = 0
End If
'*** Prozentangabe im label ***
lblStatus.Text = prgBar.Value & (" %")
End Sub
''' <summary>
''' *** Bei DoppelKlick Markierten eintrag Öffnen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDoubleClick
If ListBox1.SelectedItem Is Nothing = False Then
'*** Ausgewählten index Starten in AdobeReader ***
Process.Start(ListBox1.SelectedItem.ToString())
End If
End Sub
''' <summary>
''' *** Der Zähler für die Anzahl der ListBox einträge ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
'*** Items in der listbox zählen und Ausgeben ***
Dim zähler As Integer = 0
zähler = ListBox1.Items.Count
If zähler = 0 Then
cmdDrucken.Text = zähler.ToString() + " Dateien Drucken"
ElseIf zähler = 1 Then
cmdDrucken.Text = zähler.ToString() + " Datei Drucken"
Else
cmdDrucken.Text = zähler.ToString() + " Dateien Drucken"
End If
If zähler = 0 Then
cmdDrucken.Enabled = False
cmdLeeren.Enabled = False
Else
cmdDrucken.Enabled = True
cmdLeeren.Enabled = True
End If
End Sub
''' <summary>
''' *** Form Closing and Close - Müll einsammeln ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub PDFPrint_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
'*** Wir sammeln den Müll ein ***
GC.Collect()
End Sub
''' <summary>
''' *** Müll wegbringen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub PDFPrint_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'*** Wir sammeln den Müll ein ***
GC.Collect()
End Sub
''' <summary>
''' *** Müll wegbringen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub CmdLeeren_Click(sender As Object, e As EventArgs) Handles cmdLeeren.Click
'*** Textfeld leeren ***
ListBox1.Items.Clear()
'*** Wir bringen den Müll raus ***
GC.Collect()
End Sub
''' <summary>
''' *** Farblicher Effekt bei dem Drucker ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub CboDrucker_DrawItem(sender As Object, e As DrawItemEventArgs) Handles cboDrucker.DrawItem
'*** VAriablendeklaration ***
Dim sItem As String = CType(cboDrucker.Items(e.Index), String)
Dim b As New SolidBrush(Color.Black)
Select Case e.Index
Case 0
b = New SolidBrush(Color.Red)
Case 1
b = New SolidBrush(Color.Black)
Case 2
b = New SolidBrush(Color.Black)
Case 3
b = New SolidBrush(Color.Black)
End Select
'*** Text ausgeben ***
e.DrawBackground()
e.Graphics.DrawString(sItem, e.Font, b, e.Bounds.X, e.Bounds.Y)
e.DrawFocusRectangle()
End Sub
''' <summary>
''' *** Bei Key Down Backspacce Taste Freischalten, wenn diese Gedrückt, dann mMarkierten eintrag löschen ***
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ListBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
If e.KeyCode = Keys.Back Then
'*** Markiertes Item Löschen ***
ListBox1.Items.Remove(ListBox1.SelectedItem)
End If
End Sub
End Class

Nofear23m · 11. Dezember 2017, 09:45

@BlackNova

> 300 Zeilen für sein Problem wird ihn wohl überfordern und warscheinlich auch nicht Helfen.

@Akanel
Wenn ich das richtig sehe, arbeitest du mit einer Tabelle, welche du ja nicht so einfach "teilen" kannst.
Ich mache fast nie was mit drucken, deshalb habe ich es mir jetzt nicht genau angesehen.

So als Idee: Du musst wohl berechnen wieviele Zeilen deiner Tabelle du auf eine Seite bekommst.
Wenn du die maximale Anzahl an Zeilen für eine Seite erreicht hast musst du die Tabelle abschliessen, und eine neue AUF DER NEUEN SEITE anfangen.

Grüße
Sascha

Akanel · 11. Dezember 2017, 09:59

@BlackNova Danke Dir für Deine Antwort.
Ich habe mir den Code mal angesehen aber so wie ich ihn verstehe ziehst du fertige PDF´s per Drag and Drop auf die Listbox und Druckst diese dann auch alle nacheinander.
Mein Problem besteht aber darin das ich meine PrintPageRoutine selbst erstelle und keine vorgefertigten Dokumente habe.
Trotzdem Danke für deine Antwort.

@Nofear23m
Richtig ich erstelle mir die Tabellenköpfe manuell, und beziehe meine Daten dann aus einem Typisierten Dataset.
So wie Du es beschreibst habe ich mit das schon gedacht und auch so aus Rod´s Tutorial verstanden.
Aber wie muss ich da ansetzen?
Ich habe ja die Tabellenköpfe und weiter oben noch das Logo. Das Muss dann ja auch irgendwie berücksichtigt werden. Auf der 2.ten Seite sollen die Tabellenköpfe und Logo etc. nicht mehr drauf.

Ich Lese mir das Tutorial nochmal durch, irgendwas wichtiges muss ich wohl überlesen haben.

Blackn0va · 11. Dezember 2017, 10:06

@Nofear23m aber er hat die 300 Zeilen verstanden ^

ja schade, dachte das könnte helfen

Nofear23m · 11. Dezember 2017, 10:09

Hallo

Habe gerade mal schnell das Tut durchgescrollt. Alles drinnen was man braucht.

Du kannst ja abfragen wie groß die Seite ist (mit berücksichtigung der eingestellten Seitenränder), richtig?
Du weist auch wie groß das Logo ist das auf der Seite Platziert wird, korrekt? (Immerhin platzierst du es ja)
Die Tabelle und diese Dinge platzierst auch du und kennst Schriftgrößer (MeasureString) und Zeilenhöhe der Tabellenzeilen, richtig?

Also addieren wird diese ganzen Elemente und schon wissen wir WO wir die Tabelle teilen müssen.

Tipp: Drucke eine Seite aus und zeichne dir die Veriablen drauf, und dann gehe im code alles durch.

@BlackNova Ja, die frage ist nur obs ihm auch geholfen hat einfach C&P aus deinen Programm. Aber du hast es ja gut gemeint.

Grüße
Sascha

RodFromGermany · 11. Dezember 2017, 12:42

@Akanel Wie sollen denn die Seiten aussehen?

Quellcode

Kopf
n Zeilen Tabelle
---
Kopf
n Zeilen Tabelle
---
Kopf
n Zeilen Tabelle

oder

Quellcode

Kopf1
n Zeilen Tabelle
---
Kopf2
n Zeilen Tabelle
---
Kopf3
n Zeilen Tabelle

(damit ist nicht die Seitennummer gemeint)

Akanel · 11. Dezember 2017, 13:10

Die 2. Variante trifft es eher.
Anbei mal ein Screenshot wie es derzeit aussieht. Da sieht man es wohl auch besser.

RodFromGermany · 11. Dezember 2017, 16:12

Akanel schrieb:

Anbei mal ein Screenshot wie es derzeit aussieht.

Wo ist da ein Problem?
Ich kann keins erkennen.

Akanel · 11. Dezember 2017, 16:25

Das diese Liste auch mal länger sein kann und mehr Einträge hat als auf eine Seite passen. Den Screenshot habe ich jetzt nur gemacht um zu verdeutlichen wie die Aufteilung der Tabellen ist.

RodFromGermany · 11. Dezember 2017, 16:45

Akanel schrieb:

Das diese Liste auch mal länger sein

Davon bin ich ausgegangen, wie Du in meinem Post #7 siehst.
Zähle die Zeilen und wisse dann, wann die Seite voll ist.
Merk Dir die Nummer der letzten Zeile und mach dann mit der nächsten Seite und der nächsten Zeile weiter.

Akanel · 12. Dezember 2017, 13:48

Ich bekomme es zwar mit einem einfachen Textdokument hin, dass ausgelesen wird, aber auf meinen Code kann ich es nicht anwenden.

RodFromGermany · 12. Dezember 2017, 18:38

@Akanel Mach mal ein kleines Testprojekt mit einer Tabelle, die im Programm selbst berechnet wird (keine Datenbank).
Füge da Deinen Druck-Code ein und häng es an Deinen nächsten Post.

Akanel · 13. Dezember 2017, 10:19

@RodFromGermany anbei mein Versuch.

RodFromGermany · 13. Dezember 2017, 16:36

@Akanel Sorr, aber das ist absolut ungenügend, da werde ich keinen Handschlag dran tun.

Einfach irgendwas zusammengepostet, was nicht im geringsten was mit Deinem Problem zu tun hat.
Ändere das Projekt entsprechend.

Akanel · 13. Dezember 2017, 17:14

Akanel schrieb:

Nun habe ich keinen Ansatz

Das wird wohl erklären das es ungenügend ist. Weil ich einfach nicht weiß wie ich genau ansetzen soll.

Aber schön das Du es als "zusammengepostet" verstehst, wenn ein Anfänger nicht weiß wo und wie er ansetzen soll.

Trotzdem danke ich Dir das du Dir die Zeit genommen hast hier zu lesen.

RodFromGermany · 13. Dezember 2017, 19:42

Akanel schrieb:

wenn ein Anfänger nicht weiß wo und wie er ansetzen soll.

Arbeite zunächst mein Tut vollständig durch: Drucken mehrseitiger Dokumente

Akanel · 31. Dezember 2017, 13:39

habe ich getan, trotzdem habe ich keinen Ansatz wie ich das ganze angehen soll.

Werde das ganze wohl erstmal lassen.

danke

RodFromGermany · 31. Dezember 2017, 14:57

@Akanel Wenn Dein Code immer noch so aussieht wie in Deinem angehängten Projekt, dann wäre dies die primäre Fehlerzeile:

VB.NET-Quellcode

For i = 0 To 200

Du interessierst Dich nicht für das bedruckte Papier, sondern nur um den zu druckenden Text.
Wenn Du Dich um den Ausdruck kümmerst und nach jeder einzelnen Zeile überprüfst, ob die nächste Zeile noch auf diese Seite passt, weißt Du, wass genau Du eine neue Seite starten musst.
Wisse, dass pro Seite ein .PrintPage-Aufruf kommt.

Akanel · 1. Januar 2018, 12:37

Also ist die For-Schleife nicht für mein Vorhaben geeignet?
Damit hole ich ja die Daten aus der Bindingsource, wie man im Startpost sehen kann.
Man kann dies natürlich auch in eine List(Of String) packen und dann mit For Each durchlaufen. Wäre das geeigneter, oder habe ich Deinen Post nicht richtig verstanden?

Drucken von mehreren Seiten

Drucken von mehreren Seiten

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

Akanel schrieb:

Akanel schrieb:

Akanel schrieb:

Akanel schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben