Problem beim drucken multipler Seiten mit fortlaufendem Text

silverbob76GE · 26. August 2022, 15:52

Hi Leute

bin seit Tagen dabei eine Lösung für mein Problem zu finden, leider ohne Erfolg.

Ich versuche eine Rechnung als PDF zu drucken. Die Rechnung ist in mehreren Seiten und aufgebaut, die Rechnungspositionen werden tabellarisch dargestellt.

Page 1 => Rechnungskopf, kurzer Text, und dann die Rechnungsaufstellung, ggf. Seitenende falls nichts mehr zu drucken da ist und genügend Platz vorhanden
Page 2 => fortlaufende Rechnungsaufstellung, ggf. Seitenende falls nichts mehr zu drucken da ist und genügend Platz vorhanden

Die Daten für die Rechnung habe ich in einem typisierten Dataset.

Beim drucken der entsprechenden Datarow kann es vorkommen, das eine DataColumn sehr langen text hat, der nicht mehr auf die Seite passt und daher einen Seitenwechsel erfolgt. Das klappt auch alles wunderbar.
Leider wird der text nicht an der Stelle fortgeführt, an der aufgehört wurde. Der Druck läuft dann mit der nächsten zu druckenden DataRow weiter. Hab mir auch noch mal das Tutorial von @RodFromGermany vorgenommen.
Leider weiß ich nicht, wie ich die For-Schleife unterbrechen und dann auf nächster Seite an der korrekten Stelle weiterdrucken soll. Ich bekomme es hin, das die zunächst zu drukende DataRow kompett auf einer zusammenhängend gedruckt wird. Das bedeutet aber auch, das die jeweilige Seite zur hälfte leer sein kann, wenn der text zu lang wird. Ist vermutlich nicht der eleganteste Code, aber bis auf dieses Prob funktionierts.

Hier mal mein Code:

Spoiler anzeigen

VB.NET-Quellcode

Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim margin = PrintDocument1.DefaultPageSettings.Margins
Dim g = e.Graphics
Dim brush As New SolidBrush(Color.LightGray)
Dim brush1 As New SolidBrush(Color.Black)
Dim pen1 As New Pen(Brushes.LightGray, 0.5)
Dim pen2 As New Pen(Brushes.DarkGray, 0.5)
Dim pen3 As New Pen(Brushes.White, 0.5)
Dim LineHeight As Single = Me.myfont.GetHeight
margin.Left = 30
margin.Right = 30
margin.Top = 30
margin.Bottom = 30
leftMargin = margin.Left
rightMargin = margin.Right
topMargin = margin.Top
bottomMargin = margin.Bottom
Dim rc = e.Graphics.VisibleClipBounds
rc.Offset(margin.Left + 30, margin.Top + 30) ' obere linke Ecke
rc.Width -= (margin.Left + 20 + margin.Right - 20) ' neue Breite
rc.Height -= (margin.Top + margin.Bottom) ' neue Höhe
Dim zeile = DirectCast(DirectCast(CompanyBindingSource.Current, DataRowView).Row, DtsFirma.CompanyRow)
X = leftMargin
Y = topMargin
Dim strformat As New StringFormat(StringFormatFlags.LineLimit)
Dim charactersfitted As Integer
Dim linesfilled As Integer
If pagenb = 0 Then
Y += 240
g.DrawString(KundeComboBox.Text, myfontbold, Brushes.Black, X + 10, Y + 10)
Y += 30
g.DrawString(StrasseTextBox.Text & vbCrLf & PLZTextBox.Text & " " & StadtTextBox.Text, myfont, Brushes.Black, X + 10, Y)
Y += 50
g.DrawString(Format(AuftragsdatumDateTimePicker.Value.ToShortDateString), myfontbold, Brushes.Black, X + 650, Y)
Y += 50
g.DrawString("Auftragsnummer" & vbTab & vbTab & ":", myfontbold, Brushes.Black, X + 10, Y)
If DtsAufträge.Auftragsübersicht.Rows.Count > 0 Then
g.DrawString(AuftragsnummerTextBox.Text, myfont, Brushes.Black, X + 200, Y)
Else
g.DrawString("", myfont, Brushes.Black, X + 200, Y)
End If
Y += 20
g.DrawString("Bauvorhaben" & vbTab & vbTab & ":", myfontbold, Brushes.Black, X + 10, Y)
g.DrawString(BauvorhabenTextBox.Text, myfont, Brushes.Black, X + 200, Y)
Y += 20
If ZahlungsbedingungenTextBox.Text <> "" Then
g.DrawString("Zahlungsbedingungen" & vbTab & ":", myfontbold, Brushes.Black, X + 10, Y)
g.DrawString(ZahlungsbedingungenTextBox.Text, myfont, Brushes.Black, X + 200, Y)
End If
Y += 50
If AnredeTextBox.Text = "Herr" Then
g.DrawString("Sehr geehrter Herr " & AnsprechpartnerTextBox.Text & "," & vbCrLf & "für Ihren Auftrag bedanken wir uns und berechnen für unsere Leistungen wie folgt:", myfont, Brushes.Black, X + 10, Y)
ElseIf AnredeTextBox.Text = "Frau" Then
g.DrawString("Sehr geehrte Frau " & AnsprechpartnerTextBox.Text & "," & vbCrLf & "für Ihren Auftrag bedanken wir uns und berechnen für unsere Leistungen wie folgt:", myfont, Brushes.Black, X + 10, Y)
ElseIf AnredeTextBox.Text = "" Then
g.DrawString("Sehr geehrte Damen und Herren," & vbCrLf & "für Ihren Auftrag bedanken wir uns und berechnen für unsere Leistungen wie folgt:", myfont, Brushes.Black, X + 10, Y)
End If
Y += 50
g.FillRectangle(brush, X + 10, Y, 40, 30)
g.DrawString("Pos.", myfontbold, Brushes.Black, X + 15, Y + 5)
g.FillRectangle(brush, X + 52, Y, 400, 30)
g.DrawString("Leistung", myfontbold, Brushes.Black, X + 240, Y + 5)
g.FillRectangle(brush, X + 454, Y, 65, 30)
g.DrawString("Menge", myfontbold, Brushes.Black, X + 462, Y + 5)
g.FillRectangle(brush, X + 521, Y, 55, 30)
g.DrawString("Einheit", myfontbold, Brushes.Black, X + 524, Y + 5)
g.FillRectangle(brush, X + 578, Y, 80, 30)
g.DrawString("EP [€]", myfontbold, Brushes.Black, X + 600, Y + 5)
g.FillRectangle(brush, X + 660, Y, 80, 30)
g.DrawString("GP [€]", myfontbold, Brushes.Black, X + 685, Y + 5)
For i = index To FKAuftragsübersichtAuftragsdetailBindingSource.Count - 1
Dim row1 = DirectCast(DirectCast(FKAuftragsübersichtAuftragsdetailBindingSource.Current, DataRowView).Row, DtsAufträge.AuftragsdetailRow)
Dim an = g.VisibleClipBounds
an.Offset(X + 60, Y + 35)
an.Width = 380
an.Height = Y + (charactersfitted * linesfilled)
Dim S As SizeF
Dim Hoch As Double
Dim B = 380
indextext = 0
S = g.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
Hoch = Ausgabenhöhe(S, B)
If Y + (linesfilled * myfont.GetHeight) > 850 Then
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = True
pagenb += 1
Exit Sub
Else
If Not row1.IsLeistungNull Then
g.DrawString(row1.Leistung.Substring(indextext), myfont, Brushes.Black, an, strformat)
End If
End If
If Not row1.IsPosNull Then
g.DrawString(CStr(row1.Pos), myfontbold, Brushes.Black, X + 17, Y + 35)
End If
Dim drawrect As New RectangleF(X + 60, Y + 35, B, CInt(Hoch))
g.DrawRectangle(pen3, X + 58, Y + 33, CInt(B + 4), CInt(Hoch + 2))
If Not row1.IsMengeNull Then
g.DrawString(Format(row1.Menge, "N2"), myfont, Brushes.Black, X + 460, Y + 35)
End If
If Not row1.IsEinheitNull Then
g.DrawString(Format(row1.Einheit), myfont, Brushes.Black, X + 530, Y + 35)
End If
If Not row1.IsEinzelpreisNull Then
g.DrawString(Format(row1.Einzelpreis, "C2"), myfont, Brushes.Black, X + 598, Y + 35)
End If
If Not row1.IsGesamtpreisNull Then
g.DrawString(Format(row1.Gesamtpreis, "C2"), myfont, Brushes.Black, X + 663, Y + 35)
End If
If Hoch > 20 Then
Y += 35
g.DrawLine(pen1, X + 51, Y, X + 51, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 453, Y, X + 453, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 520, Y, X + 520, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 577, Y, X + 577, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 659, Y, X + 659, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 10, Y + CInt(Hoch + 7), X + 739, Y + CInt(Hoch + 7))
Y += CInt(Hoch) - 20
End If
If Hoch < 20 Then
Y += 35
g.DrawLine(pen1, X + 51, Y, X + 51, Y + 25)
g.DrawLine(pen1, X + 453, Y, X + 453, Y + 25)
g.DrawLine(pen1, X + 520, Y, X + 520, Y + 25)
g.DrawLine(pen1, X + 577, Y, X + 577, Y + 25)
g.DrawLine(pen1, X + 659, Y, X + 659, Y + 25)
g.DrawLine(pen1, X + 10, Y + 25, X + 739, Y + 25)
End If
index += 1
indextext += charactersfitted
FKAuftragsübersichtAuftragsdetailBindingSource.MoveNext()
If Y >= 850 Then
e.HasMorePages = True
pagenb += 1
Exit Sub
End If
Next
If Y >= 850 Then
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = True
pagenb += 1
Exit Sub
Else
Dim rectnetto = New RectangleF(X + 655, Y + 50, 85, Height)
Dim rectmwst = New RectangleF(X + 655, Y + 72, 85, Height)
Dim rectskonto = New RectangleF(X + 655, Y + 92, 85, Height)
Dim rectbrutto = New RectangleF(X + 655, Y + 112, 85, Height)
g.DrawString("Netto" & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbNetto.Text, myfont, Brushes.Black, rectnetto, _sfright)
g.DrawLine(pen2, X + 550, Y + 68, X + 740, Y + 68)
Y += 20
g.DrawString("MwSt." & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbMwst.Text, myfont, Brushes.Black, rectmwst, _sfright)
g.DrawLine(pen2, X + 550, Y + 68, X + 740, Y + 68)
Y += 20
g.DrawString("Skonto" & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbSkontobetrag.Text, myfont, Brushes.Black, rectskonto, _sfright)
Y += 20
g.DrawString("Brutto" & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbBrutto.Text, myfont, Brushes.Black, rectbrutto, _sfright)
g.DrawLine(pen2, X + 550, Y + 68, X + 740, Y + 68)
g.DrawLine(pen2, X + 550, Y + 70, X + 740, Y + 70)
e.HasMorePages = False
End If
End If
Y += 80
If pagenb >= 1 Then
X = leftMargin
Y = topMargin
Y += 30
indextext = charactersfitted
If index = FKAuftragsübersichtAuftragsdetailBindingSource.Count Then
Else
g.FillRectangle(brush, X + 10, Y, 40, 30)
g.DrawString("Pos.", myfontbold, Brushes.Black, X + 15, Y + 5)
g.FillRectangle(brush, X + 51, Y, 400, 30)
g.DrawString("Leistung", myfontbold, Brushes.Black, X + 240, Y + 5)
g.FillRectangle(brush, X + 453, Y, 65, 30)
g.DrawString("Menge", myfontbold, Brushes.Black, X + 462, Y + 5)
g.FillRectangle(brush, X + 519, Y, 60, 30)
g.DrawString("Einheit", myfontbold, Brushes.Black, X + 528, Y + 5)
g.FillRectangle(brush, X + 580, Y, 80, 30)
g.DrawString("EP [€]", myfontbold, Brushes.Black, X + 600, Y + 5)
g.FillRectangle(brush, X + 661, Y, 80, 30)
g.DrawString("GP [€]", myfontbold, Brushes.Black, X + 685, Y + 5)
End If
For i = index To FKAuftragsübersichtAuftragsdetailBindingSource.Count - 1
Dim row1 = DirectCast(DirectCast(FKAuftragsübersichtAuftragsdetailBindingSource.Current, DataRowView).Row, DtsAufträge.AuftragsdetailRow)
Dim S As SizeF
Dim Hoch As Double
Dim B = 380
Dim drawrect As New RectangleF(X + 60, Y + 35, B, CSng(Hoch))
Dim an = g.VisibleClipBounds
an.Offset(X + 60, Y + 35)
S = g.MeasureString(row1.Leistung, myfont, B)
Hoch = Ausgabenhöhe(S, B)
an.Width = 380
an.Height = CInt(Hoch)
If Y >= 850 Then
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = True
pagenb += 1
Exit Sub
Else
If Not row1.IsLeistungNull Then
g.DrawString(row1.Leistung.Substring(indextext), myfont, Brushes.Black, an, strformat)
End If
End If
If Not row1.IsPosNull Then
g.DrawString(CStr(row1.Pos), myfontbold, Brushes.Black, X + 17, Y + 35)
End If
g.DrawRectangle(pen3, X + 58, Y + 33, CInt(B + 4), CInt(Hoch + 2))
If Not row1.IsMengeNull Then
g.DrawString(Format(row1.Menge, "N2"), myfont, Brushes.Black, X + 465, Y + 35)
End If
If Not row1.IsEinheitNull Then
g.DrawString(Format(row1.Einheit), myfont, Brushes.Black, X + 535, Y + 35)
End If
If Not row1.IsEinzelpreisNull Then
g.DrawString(Format(row1.Einzelpreis, "C2"), myfont, Brushes.Black, X + 603, Y + 35)
End If
If Not row1.IsGesamtpreisNull Then
g.DrawString(Format(row1.Gesamtpreis, "C2"), myfont, Brushes.Black, X + 668, Y + 35)
End If
index = i + 1
FKAuftragsübersichtAuftragsdetailBindingSource.MoveNext()
If Y >= 850 Or indextext < charactersfitted Then
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = True
pagenb += 1
Exit Sub
End If
Next
Y += 30
If Y >= 850 Then
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = True
pagenb += 1
Exit Sub
Else
Dim rectnetto = New RectangleF(X + 655, Y + 50, 85, Height)
Dim rectmwst = New RectangleF(X + 655, Y + 72, 85, Height)
Dim rectskonto = New RectangleF(X + 655, Y + 92, 85, Height)
Dim rectbrutto = New RectangleF(X + 655, Y + 112, 85, Height)
g.DrawString("Netto" & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbNetto.Text, myfont, Brushes.Black, rectnetto, _sfright)
g.DrawLine(pen2, X + 550, Y + 68, X + 740, Y + 68)
Y += 20
g.DrawString("MwSt." & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbMwst.Text, myfont, Brushes.Black, rectmwst, _sfright)
g.DrawLine(pen2, X + 550, Y + 68, X + 740, Y + 68)
Y += 20
g.DrawString("Skonto" & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbSkontobetrag.Text, myfont, Brushes.Black, rectskonto, _sfright)
Y += 20
g.DrawString("Brutto" & vbTab & "[€]", myfontbold, Brushes.Black, X + 550, Y + 50)
g.DrawString(tbBrutto.Text, myfont, Brushes.Black, rectbrutto, _sfright)
g.DrawLine(pen2, X + 550, Y + 68, X + 740, Y + 68)
g.DrawLine(pen2, X + 550, Y + 70, X + 740, Y + 70)
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = False
End If
End If
End Sub

aufgrund des Codeumfangs Spoiler hinzugefügt ~VaporiZed

VaporiZed · 26. August 2022, 16:12

Du solltest im PrintPage-EventHandler mit z.B. e.Graphics.MeasureString erstmal rausfinden, wie groß Dein Text ist. Das tust Du schon. Gut. Sobald Du feststellst, dass er zu groß für den Rest der Seite ist, musst Du den String aufsplitten und auf der nächsten Seite weiterführen. Das heißt aber auch, dass Du nicht mit dem Inhalt der DataRow direkt arbeiten kannst, sondern den String/Text ggf. aufteilen müsstest.

silverbob76GE · 26. August 2022, 16:18

@VaporiZed, danke das du dir die Zeit nimmst.

Sowas hatte ich bereits befürchtet, ich weiß allerdings nicht wie. Den String kann ich mit e.graphics.measurestring messen, ist auch im code enthalten. Hatte gehofft, das ich den Text an gleicher stelle auf nächster Seite fortführen kann. @RodFromGermany hatte das in seinem Tutorial behandelt, allerdings war dort die Quelle eine RichTextBox wenn ich nicht falsch liege.

Die zu druckende Datarow bzw. Zelle kenne ich ja. Greife darauf typisiert zu. Soll ich den Text aus der DataRow

- zwischenspeichern
- Länge messen
- wenn zu lang, den anteiliegen Text auf die aktuelle Seite, Rest auf nächste Seite schreiben?

Hast du einen Ansatz wie ich das anstellen könnte?

Danke vorweg.

RodFromGermany · 27. August 2022, 11:06

@silverbob76GE Erstell ein Demo-Projekt mit zufälligen Daten, die Deinen Effekt auslösen.
Überzeuge Dich davon, dass dieses Demo-Projekt compiliert und Deinen Effekt reproduziert.
Zippe das Projekt ohne obj, bin- und .vs-Ordner und hänge es an einen Post an.

VaporiZed · 27. August 2022, 11:33

Letztenendes wird es darauf hinauslaufen, dass Du Dir eine Funktion machst, die Dir zurückgibt, wieviel von einem Text bei einer bestimmten Schrift in ein bestimmtes Rechteck reinpasst. Schau Dir dazu die Überladungen von MeasureString mal an. Es gibt zwar was passendes, allerdings erhältst Du als Ergebnis nur für die Texthöhe einen Wert zwischen tatsächlicher Texthöhe (wenn diese kleiner als die Rechteckshöhe ist) und der Rechteckshöhe selbst. Bei letzterem wird der Text wohl zuviel sein und Du musst den Text aufspalten.
Ich find das Drucken sehr flexibel, aber aufgrund der Tatsache, dass man überall zu jeden Zeitpunkt des PrintPage-EventHandlers Dinge irgendwo auf dem Blatt platzieren kann auch schwer zu steuern. Als kleinen Punkt hab ich für mich daher mal festgelegt, dass ich in dem EventHandler nur schreibe:

VB.NET-Quellcode

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
If CurrentPageIndex = 0 Then PrintFirstPage(e)
If CurrentPageIndex > 0 Then PrintFurtherPages(e)
If PrintLastPage Then PrintLastPage(e) 'falls es eine Abschlusseite gibt
End Sub

silverbob76GE · 27. August 2022, 18:26

Hallo Leute

werde morgen das Demo-Projekt erstellen und hochladen. Wie schon gesagt, klappt das drucken. Aber halt nicht gesplittet. Hab die Seiten zwar aufgeteilt in page 1, page 2, aber daran liegts ja nicht. Wenn ich in der For schleife stecke und die datarow drucke muss ich wenn die seite voll ist, eine neue seite erzeugen und nach der zuletzt gedruckten stelle weiterdrucken. Und da weiss ich halt nicht wie. Hoffe ihr habt nen Ansatz. Werde mich da morgen ran setzen.

silverbob76GE · 28. August 2022, 17:08

Hi

hab ein demo projekt erstellt und as projekt gezippt. Habs getestet. Für die app wird eine xml datei benötigt, die auf dem desktop liegen sollte. Hab ich dabei gepackt.
Hoffe das mir jemand helfen kann.

RodFromGermany · 28. August 2022, 18:10

@silverbob76GE Du musst noch ein paar HAusaufgaben erledigen.
Räume Deinen Code auf, keine Spagetti-Monster-Prozeduren mit redundantem Code:
Lerne dies:
Markiere einen in sich geschlossenen Quelltext, Bearbeiten => Umgestalten => Methode extrahieren;
Generiere Testdaten, die das übliche Muster sprengen.
Sorge dafür, dass überhaupt alles sichtbar ist, erkenne, dass der Text die Seite verlässt.
Vergleiche Deine Dateien mit meinen.
auftragsübersicht.zip

VaporiZed · 28. August 2022, 18:43

Ok, ich erkenn im Resultat jetzt keinen Unterschied. Daten zu generieren, die das Muster sprengen, sind m.E. vorhanden oder ich versteh das Ziel nicht. Anbei Istwert und vermuteter Sollwert (Bildbearbeitung, kein Coderesultat!). Das muss aber der TE präzisieren.

RodFromGermany · 28. August 2022, 18:48

VaporiZed schrieb:

Daten zu generieren, die das Muster sprengen, sind m.E. vorhanden oder ich versteh das Ziel nicht.

Ich meine so was:

silverbob76GE · 28. August 2022, 23:47

Hi Leute

das was @RodFromGermany im letzten Post im Bild zeigt, hatte ich vorher und kam nicht weiter. Werde ich nachstellen und das Projekt neu hochladen. Bei mir lief der Text bis Seitenende, wurde aber auf der Folgeseite nicht fortgeführt. Auf der neuen Seite wurde mit der nächsten DataRow fortgeführt. Hab dann einen Weg gefunden, die nächste DataRow auf der neuen Seite zu drucken, aber da kann es halt passieren, das eine Seite zur hälfte leer bleibt, was ja nicht so schön ist auf Paper.

Vielen Dank für den Tip @RodFromGermany, werde den Code aufräumen, gab viele Stolpersteine die ich nicht anders in den Griff bekommen habe und irgendwann nicht mehr sicher war, was zu viel oder überflüssig ist. Bin leider immer noch ein Anfänger, aber versuche immer wieder dran zu arbeiten. Werde mir deinen Code vornehmen und versuchen zu verstehen, wie das funktioniert.

@VaporiZed, Ziel ist, das ich den Seitenplatz so gut es geht ausnutze und dann erst mit einer neuen Seite anfange. In der oben angehängtn Solution wird geprüft, ob die DataRow zu lang ist. Wenn ja, wird der Druck auf der nächsten Seite fortgeführt. Das ist halt nicht so schön. Danke an euch beiden, das Ihr euch die Zeit dafür nehmt, würde das alleine never schaffen.

RodFromGermany · 29. August 2022, 05:25

silverbob76GE schrieb:

wurde aber auf der Folgeseite nicht fortgeführt.

Ich erwarte von Dir, dass Du mit e.Graphics.MeasureString() erkennst, dass das Papier nicht reicht und dann sofort die nächste Seite bedruckst.
Wenn das läuft, drucken wir auch halbe Absätze.
Nur: MeasureString() sollte in Deinem Code vorkommen und ausgewertet werden.

Panter · 29. August 2022, 06:18

Hallo silverbob76GE

Ich habe Respekt vor deinem Code. Es braucht sehr viel Vorstellungsvermögen so die Druckausgabe Pixel für Pixel zu gestalten. Ich selber würde das mit einem RDLC Report erledigen. Der Grund ist, wenn Du in 2 Jahren irgend etwas abändern willst, wird es wohl sehr aufwändig sein.

Ich muss zwar zugeben, ich wüsste auch bei RDLC Berichten nicht, ob man den Text unterbrechen kann. Ich gehe davon aus, dass er auf der nächsten Seite vollständig angezeigt wird.

Mann kann aber PDF's erstellen, ich denke die meisten Kunden wollen heute ja die Rechnungen per Mail - natürlich könntest Du auch via PDF Drucker etwas basteln.

Falls Du noch nichts mit Berichten gemacht hast, siehe hier: https://www.vb-paradise.de/index.php/Thread/98333-ReportViewer-Tutorial-f%C3%BCr-Anf%C3%A4nger/

lg Panter

silverbob76GE · 29. August 2022, 17:46

Hallo @RodFromGermany

RodFromGermany schrieb:

Ich erwarte von Dir, dass Du mit e.Graphics.MeasureString() erkennst, dass das Papier nicht reicht und dann sofort die nächste Seite bedruckst.

Ich habe deinen Code übernommen und auch Code extrahiert, so wie du geschrieben hast. Allerdings hänge ich noch an der Stelle, das der Druck zwar funzt, aber nicht halbe Absätze geschrieben und auf der nächste Seite fortgeführt werden. Ich kann die Datarow abbrechen und auf der nächste Seite fortführe, siehe Bild . Ich kann auch den text durchlaufen lassen, siehe Bild 2.

Im Code ist e.graphics.measurestring entahlten, und dieser misst ja auch die entsprechende Zeile. Aber egeal was ich mache, entweder wird die komplette Zeile auf der nächsten Seite gedruckt, oder der Druck läuft bis Seitenende, wird aber nicht fortgeführt.
Wie kann ich messen, das zuvor gedruckte Zeilen + die aktuell zu druckende Zeile nur maximal X Zeichen haben darf. Wenn X überschritten, neue Seite beginnen und Druck fortführen.

@Panter, habe noch nicht darüber nachgedacht. Hab mich für diese Methode entschieden, erschien mir anfangs logischer. Und hab nun auch zu viel Zeit reingesteckt, jetzt will ich es auch hinbekommen.
By the way, pixel für pixel, leider. War sehr zeitaufwendig, aber denke das geht bestimmt viel eleganter.

RodFromGermany · 29. August 2022, 17:58

silverbob76GE schrieb:

wird aber nicht fortgeführt.

Das mache ich Dir, wenn Du richtig erkennst, dass der Text zu lang ist und Du vorher diese Seite abbrichst.

silverbob76GE · 30. August 2022, 16:23

Um ehrlich zu sein, weiß ich nicht weiter. Ich habe:

Anbei der Code für Pagenb = 0

VB.NET-Quellcode

If pagenb = 0 Then
Dim rc = e.Graphics.VisibleClipBounds
rc.Offset(margin.Left + 30, margin.Top + 30) ' obere linke Ecke
rc.Width -= (margin.Left + 20 + margin.Right - 20) ' neue Breite
rc.Height -= (margin.Top + margin.Bottom) ' neue Höhe
DrawHeader(g)
DrawRectangle(g, brush)
For i = index To FKAuftragsübersichtAuftragsdetailBindingSource.Count - 1
Dim row1 = DirectCast(DirectCast(FKAuftragsübersichtAuftragsdetailBindingSource.Current, DataRowView).Row, DtsAufträge.AuftragsdetailRow)
Dim an = g.VisibleClipBounds
an.Offset(X + 60, Y + 35)
an.Width = 380
Dim B = 380
indextext = 0
Dim S As SizeF = g.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
Dim Hoch As Double = Ausgabenhöhe(S, B)
an.Height = CInt(Hoch)
Dim textblock As SizeF = e.Graphics.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
Dim currentheight = Y + (myfont.GetHeight * linesfilled)
If currentheight + textblock.Height > rc.Height Then
e.HasMorePages = True
pagenb += 1
Return
Else
DrawRow1Info(g, pen3, strformat, row1, an, Hoch, B)
DrawHoch(g, pen1, Hoch)
index += 1
FKAuftragsübersichtAuftragsdetailBindingSource.MoveNext()
End If
Next
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = False
End If

RodFromGermany · 30. August 2022, 16:27

@silverbob76GE Poste bitte vollständige Prozeduren.

silverbob76GE · 30. August 2022, 17:07

VB.NET-Quellcode

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim margin = PrintDocument1.DefaultPageSettings.Margins
Dim g = e.Graphics
Dim brush As New SolidBrush(Color.LightGray)
Dim brush1 As New SolidBrush(Color.Black)
Dim pen1 As New Pen(Brushes.LightGray, 0.5)
Dim pen2 As New Pen(Brushes.DarkGray, 0.5)
Dim pen3 As New Pen(Brushes.White, 0.5)
Dim LineHeight As Single = Me.myfont.GetHeight
margin.Left = 30
margin.Right = 30
margin.Top = 30
margin.Bottom = 30
leftMargin = margin.Left
rightMargin = margin.Right
topMargin = margin.Top
bottomMargin = margin.Bottom
Dim rc = e.Graphics.VisibleClipBounds
rc.Offset(margin.Left + 30, margin.Top + 30) ' obere linke Ecke
rc.Width -= (margin.Left + 20 + margin.Right - 20) ' neue Breite
rc.Height -= (margin.Top + margin.Bottom) ' neue Höhe
X = leftMargin
Y = topMargin
Dim strformat As New StringFormat(StringFormatFlags.LineLimit)
Dim charactersfitted As Integer
Dim linesfilled As Integer
If pagenb = 0 Then
DrawHeader(g)
DrawRectangle(g, brush)
For i = index To FKAuftragsübersichtAuftragsdetailBindingSource.Count - 1
Dim row1 = DirectCast(DirectCast(FKAuftragsübersichtAuftragsdetailBindingSource.Current, DataRowView).Row, DtsAufträge.AuftragsdetailRow)
Dim an = g.VisibleClipBounds
an.Offset(X + 60, Y + 35)
an.Width = 380
Dim B = 380
indextext = 0
Dim S As SizeF = g.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
Dim Hoch As Double = Ausgabenhöhe(S, B)
an.Height = CInt(Hoch)
'Dim textblock As SizeF = e.Graphics.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
Dim currentheight = Y + (myfont.GetHeight * linesfilled)
If currentheight + S.Height > rc.Height Then
e.HasMorePages = True
pagenb += 1
Return
Else
DrawRow1Info(g, pen3, strformat, row1, an, Hoch, B)
DrawHoch(g, pen1, Hoch)
index += 1
FKAuftragsübersichtAuftragsdetailBindingSource.MoveNext()
End If
Next
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = False
End If
Y += 80
If pagenb >= 1 Then
X = leftMargin
Y = topMargin
Y += 30
If index < FKAuftragsübersichtAuftragsdetailBindingSource.Count Then
DrawRectangle(g, brush)
End If
For i = index To FKAuftragsübersichtAuftragsdetailBindingSource.Count - 1
indextext = 0
Dim row1 = DirectCast(DirectCast(FKAuftragsübersichtAuftragsdetailBindingSource.Current, DataRowView).Row, DtsAufträge.AuftragsdetailRow)
Dim S As SizeF
Dim Hoch As Double
Dim B = 380
Dim drawrect As New RectangleF(X + 60, Y + 35, B, CSng(Hoch))
Dim an = g.VisibleClipBounds
an.Offset(X + 60, Y + 35)
S = g.MeasureString(row1.Leistung, myfont, B)
Hoch = Ausgabenhöhe(S, B)
an.Width = 380
an.Height = CInt(Hoch)
e.Graphics.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
If Y + an.Height > rc.Height - 100 Then
e.HasMorePages = True
pagenb += 1
Return
Else
DrawRow1Info(g, pen3, strformat, row1, an, Hoch, B)
DrawHoch(g, pen1, Hoch)
index = i + 1
indextext += charactersfitted
FKAuftragsübersichtAuftragsdetailBindingSource.MoveNext()
End If
Next
Y += 30
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
pagenb += 1
End If

RodFromGermany · 30. August 2022, 18:10

@silverbob76GE Dein Code ist mir etwas zu chaotisch.
Nichts sagende Variablennamen, fehlende Kommentare.
Ich hab hier mal ein ganz simples Beispiel gemacht:
Form mit Button, RichTextBox und PrintDocument

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
' Form mit Button, RichTextBox und PrintDocument
Public Class Form1
' Anzahl der bereits gedruckten Zeichen
Private TotalCharsPrinted As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' als Text nehme ich einfach die Projekt-Datei
Dim folder As String = ".." & Path.DirectorySeparatorChar
' "Drucken.exe" => "Drucken.vbproj"
Dim proj As String = String.Concat(Path.GetFileNameWithoutExtension(Application.ExecutablePath), ".vbproj")
' "..\..\Drucken.vbproj"
proj = String.Concat(folder, folder, proj)
Me.RichTextBox1.Text = File.ReadAllText(proj)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using dlg = New PrintPreviewDialog()
dlg.WindowState = FormWindowState.Maximized
dlg.Document = Me.PrintDocument1
dlg.PrintPreviewControl.Columns = 2
dlg.ShowDialog()
End Using
End Sub
Private Sub PrintDocument1_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
' Start Ausdruck: Noch kein Zeichen gedruckt
Me.TotalCharsPrinted = 0
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Using sf As New StringFormat()
' nur vollständige Zeilen drucken
sf.FormatFlags = StringFormatFlags.LineLimit Or StringFormatFlags.NoWrap
Dim ft As Font = Me.RichTextBox1.Font
Dim g As Graphics = e.Graphics
' die noch zu druckenden Zeichen holen
Dim sb As New System.Text.StringBuilder(Me.RichTextBox1.Text.Substring(Me.TotalCharsPrinted))
' werden von MeasureString() belegt
Dim linesFilled, charsFitted As Integer
' die Anzahl der druckbaren Zeichen bestimmen
g.MeasureString(sb.ToString(), ft, e.MarginBounds.Size, sf, charsFitted, linesFilled)
' der eigentliche Druck
g.DrawString(sb.ToString(0, charsFitted), ft, Brushes.Black, e.MarginBounds, sf)
Me.TotalCharsPrinted += charsFitted
e.HasMorePages = Me.RichTextBox1.TextLength > Me.TotalCharsPrinted
End Using
End Sub
End Class

Gestalte mal Deinen Code so um, dass Du eine einzige Routine hast, in der genau ein TextBaustein gedruckt wird.
Da kannst Du die TextBausteine von Seite 1 auch mit drucken.

silverbob76GE · 30. August 2022, 22:47

@RodFromGermany, hab den Code nun Kommmentaren versehen.

wie meinst du das mit "in der genau ein Textbaustein gedruckt wird"?
Soll ich den Druckinhalt erst mal auf einen String abändern? Die zu druckenden Texte passen in der Regel immer in eine Zeile. Nur bei der Zelle mit "Leistung" ist der Inhalt oftmals länger. Ich habe jetzt mal den kompletten Code geposted, den Druck für Seite 2 habe ich weggelassen. War mir nicht sicher, ob du den sehen wolltest.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
' Form mit zwei Button zum drucken und zum speichern, zwei DataGridView, einem DataSet mit zwei DataTable und einer Bindingsource
Public Class Form1
'Speicherort der XML-Datei, in die der Inhalt der DataTable geschrieben wird
Dim auftragsfile As String = "c:\users\" + Environment.UserName + "\desktop\auftragsübersicht.xml"
'Schriftart für den Druck der DataTable
Private myfont As Font = New Font("Calibri", 10, FontStyle.Regular)
'Zähler für die aktuelle Seitenzahl
Private pagenb As Integer
'Zähler zur Bestimmung der Position in der BindingSource beim durchlaufen mit der For-Schleife
Private index As Integer
'Startposition des Textes
Private indextext As Integer
'Y-Koordinate zur Bestimmung der Textposition auf der Druckseite
Private Y As Integer
'X-Koordinate zur Bestimmung der Textposition auf der Druckseite
Private X As Integer
'linker Seitenrand
Private leftMargin As Integer
'rechter Seitenrand
Private rightMargin As Integer
'oberer Seitenrand
Private topMargin As Integer
'unterer Seitenrand
Private bottomMargin As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Reload() 'Methoder zum laden der XMl-Datei
End Sub
Private Sub Reload()
DtsAufträge.Clear()
For Each tb As DataTable In DtsAufträge.Tables
tb.BeginLoadData()
Next
If File.Exists(auftragsfile) Then
DtsAufträge.ReadXml(auftragsfile)
End If
For Each tb As DataTable In DtsAufträge.Tables
tb.EndLoadData()
Next
End Sub
Private Sub btspeichern_Click(sender As Object, e As EventArgs) Handles btspeichern.Click
DtsAufträge.WriteXml(auftragsfile) 'Schreiben der DataTable-Daten in eine XML-Datei mit dem angegeben Speicherpfad
End Sub
Public Function Ausgabenhöhe(ByVal S As SizeF, ByVal B As Double) As Double
'Funktion zur Bestimmung der Zeilenhöhe, umd die Tabellenzellen zu zeichnen
Dim H As Double
If S.Width > B Then
H = (S.Width / B)
Else
H = S.Height
End If
Return H
End Function
'Funktion zur Ausrichtung des Texts (links, rechts, mittig)
Private _sfright As New StringFormat With {.Alignment = StringAlignment.Far}
Private Sub btdrucken_Click(sender As Object, e As EventArgs) Handles btdrucken.Click
'Aufrufen des Druckdialogs
If DtsAufträge.Auftragsübersicht.Rows.Count > 0 Then
Using dlg As New PrintDialog
If dlg.ShowDialog() <> DialogResult.OK Then
MessageBox.Show("Abbruch!", "Auftragsmodul")
Return
End If
'Druckeinstellungen
PrintDocument1.PrinterSettings = dlg.PrinterSettings
'Seitenansicht auf Fenstergröße maximiert
PrintPreviewDialog1.WindowState = FormWindowState.Maximized
'Dokumentname der zu druckenden Datei
PrintPreviewDialog1.Document = Me.PrintDocument1
'Anzeige der Seitenzahl in der Seitenansicht
PrintPreviewDialog1.PrintPreviewControl.Columns = 2
'Anzeige des Druckdialogs
PrintPreviewDialog1.ShowDialog()
End Using
End If
End Sub
Private Sub PrintDocument1_BeginPrint(sender As Object, e As Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
'Start des Drucks. Seiten und Index für For-Schleife werden auf NUll gesetzt.
Me.pagenb = 0 'Seitenzähler
Me.index = 0 'Positionszähler der BindingSource
Me.indextext = 0 'Position des zu druckenden Texts auf der Seite
FKAuftragsübersichtAuftragsdetailBindingSource.MoveFirst() ' Start des Drucks bei Position 1 (Index = 0) der Bindingsource
End Sub
Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'Druckprozedur
Dim margin = PrintDocument1.DefaultPageSettings.Margins
Dim g = e.Graphics
Dim brush As New SolidBrush(Color.LightGray)
Dim brush1 As New SolidBrush(Color.Black)
Dim pen1 As New Pen(Brushes.LightGray, 0.5)
Dim pen2 As New Pen(Brushes.DarkGray, 0.5)
Dim pen3 As New Pen(Brushes.White, 0.5)
Dim LineHeight As Single = Me.myfont.GetHeight
margin.Left = 30
margin.Right = 30
margin.Top = 30
margin.Bottom = 30
leftMargin = margin.Left
rightMargin = margin.Right
topMargin = margin.Top
bottomMargin = margin.Bottom
'Druckbereich
Dim rc = e.Graphics.VisibleClipBounds
rc.Offset(margin.Left + 30, margin.Top + 30) ' obere linke Ecke
rc.Width -= (margin.Left + 20 + margin.Right - 20) ' neue Breite
rc.Height -= (margin.Top + margin.Bottom) ' neue Höhe
X = leftMargin
Y = topMargin
Dim strformat As New StringFormat(StringFormatFlags.LineLimit)
Dim charactersfitted As Integer
Dim linesfilled As Integer
DrawHeader(g) ' Kopfzeile auf erster Seite
DrawRectangle(g, brush) ' Tabellenkopfzeile als farbiges Rechteck
'DataTable enthält Rechnungspositionen. Damit alle DataRows der DataTable gedruckt werden, Iteration mit For-Schleife durch
'Bindingsource.
For i = index To FKAuftragsübersichtAuftragsdetailBindingSource.Count - 1
Dim row1 = DirectCast(DirectCast(FKAuftragsübersichtAuftragsdetailBindingSource.Current, DataRowView).Row, DtsAufträge.AuftragsdetailRow)
'Druckbereich der DataRow für die DataColumn 'Leistung', Höhe abhängig von der Zeilenanzahl
Dim an = g.VisibleClipBounds
an.Offset(X + 60, Y + 35)
an.Width = 380
Dim B = 380
' Startposition des Texts in der zu druckenden Tabellenzeile. Genullt, da die Tabellenzeile neu anfängt.
indextext = 0
'Prüfung der Länge des Strings in der DataRow
Dim S As SizeF = g.MeasureString(row1.Leistung.Substring(indextext), myfont, an.Size, strformat, charactersfitted, linesfilled)
'bestimmt die Höhe der zu druckenden Zeile
Dim Hoch As Double = Ausgabenhöhe(S, B)
'Gibt die Höhe der zu druckenden Tabellenzeile an, damit die Tabellenzeilen gezeichnet werden können.
an.Height = CInt(Hoch)
'DataRow in Tabellenform gedruckt
DrawRow1Info(g, pen3, strformat, row1, an, Hoch, B)
'Zeichnung der Tabellenzellen
DrawHoch(g, pen1, Hoch) '
'Zähler für die Position in der BindingSource
index += 1
FKAuftragsübersichtAuftragsdetailBindingSource.MoveNext()
'End If
Next
g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), myfont, brush, 380, 1130)
e.HasMorePages = False 'keine weiteren Seiten für Druck vorhanden
'End If
'Y += 80
End Sub
Private Sub DrawHeader(g As Graphics)
'Kopfzeile für den Druck auf Seite 1
Y += 240
g.DrawString("Auftragsnummer" & vbTab & vbTab & ":", myfont, Brushes.Black, X + 10, Y)
Y += 20
g.DrawString("Bauvorhaben" & vbTab & vbTab & ":", myfont, Brushes.Black, X + 10, Y)
Y += 100
End Sub
Private Sub DrawRow1Info(g As Graphics, pen3 As Pen, strformat As StringFormat, row1 As DtsAufträge.AuftragsdetailRow, an As RectangleF, Hoch As Double, B As Integer)
'Positionszeilen für den Druck auf allen Seiten
If Not row1.IsLeistungNull Then
g.DrawString(row1.Leistung.Substring(indextext), myfont, Brushes.Black, an, strformat)
End If
If Not row1.IsPosNull Then
g.DrawString(CStr(row1.Pos), myfont, Brushes.Black, X + 17, Y + 35)
End If
Dim drawrect As New RectangleF(X + 60, Y + 35, B, CInt(Hoch))
g.DrawRectangle(pen3, X + 58, Y + 33, CInt(B + 4), CInt(Hoch + 2))
If Not row1.IsMengeNull Then
g.DrawString(Format(row1.Menge, "N2"), myfont, Brushes.Black, X + 460, Y + 35)
End If
If Not row1.IsEinheitNull Then
g.DrawString(Format(row1.Einheit), myfont, Brushes.Black, X + 530, Y + 35)
End If
If Not row1.IsEinzelpreisNull Then
g.DrawString(Format(row1.Einzelpreis, "C2"), myfont, Brushes.Black, X + 598, Y + 35)
End If
If Not row1.IsGesamtpreisNull Then
g.DrawString(Format(row1.Gesamtpreis, "C2"), myfont, Brushes.Black, X + 663, Y + 35)
End If
End Sub
Private Sub DrawHoch(g As Graphics, pen1 As Pen, Hoch As Double)
'Zeichnung der Tabellenzellgrenzen
If Hoch > 20 Then
Y += 35
g.DrawLine(pen1, X + 51, Y, X + 51, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 453, Y, X + 453, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 520, Y, X + 520, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 577, Y, X + 577, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 659, Y, X + 659, Y + CInt(Hoch + 7))
g.DrawLine(pen1, X + 10, Y + CInt(Hoch + 7), X + 739, Y + CInt(Hoch + 7))
Y += CInt(Hoch) - 20
End If
If Hoch < 20 Then
Y += 35
g.DrawLine(pen1, X + 51, Y, X + 51, Y + 25)
g.DrawLine(pen1, X + 453, Y, X + 453, Y + 25)
g.DrawLine(pen1, X + 520, Y, X + 520, Y + 25)
g.DrawLine(pen1, X + 577, Y, X + 577, Y + 25)
g.DrawLine(pen1, X + 659, Y, X + 659, Y + 25)
g.DrawLine(pen1, X + 10, Y + 25, X + 739, Y + 25)
End If
End Sub
Private Sub DrawRectangle(g As Graphics, brush As SolidBrush)
'Inhaöt des Tabellenkopfs
g.FillRectangle(brush, X + 10, Y, 40, 30)
g.DrawString("Pos.", myfont, Brushes.Black, X + 15, Y + 5)
g.FillRectangle(brush, X + 52, Y, 400, 30)
g.DrawString("Leistung", myfont, Brushes.Black, X + 240, Y + 5)
g.FillRectangle(brush, X + 454, Y, 65, 30)
g.DrawString("Menge", myfont, Brushes.Black, X + 462, Y + 5)
g.FillRectangle(brush, X + 521, Y, 55, 30)
g.DrawString("Einheit", myfont, Brushes.Black, X + 524, Y + 5)
g.FillRectangle(brush, X + 578, Y, 80, 30)
g.DrawString("EP [€]", myfont, Brushes.Black, X + 600, Y + 5)
g.FillRectangle(brush, X + 660, Y, 80, 30)
g.DrawString("GP [€]", myfont, Brushes.Black, X + 685, Y + 5)
End Sub
End Class

Problem beim drucken multipler Seiten mit fortlaufendem Text

Problem beim drucken multipler Seiten mit fortlaufendem Text

VB.NET-Quellcode

VB.NET-Quellcode

VaporiZed schrieb:

silverbob76GE schrieb:

RodFromGermany schrieb:

silverbob76GE schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben