Drucken des Inhalts eines Datagridview / Dataset über mehrere Seiten in VB Net

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 63 Antworten in diesem Thema. Der letzte Beitrag () ist von silverbob76GE.

    @silverbob76GE Mach mal ein kleines Beispielprojekt mit einer dynamisch befüllten DataTable, das diesen Effekt reproduziert und hänge dies ohne bin und obj als ZIP an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi @Dksksm

    Nunja, ich hatte ursprünglich einen untypsierten Zugriff auf mein typsiertes DataSet. Das habe ich dann dank @Akanel und @VaporiZed mit dem DirectCast geändert.
    Bin dann davon ausgegangen, das ich beim iterieren auch den DirectCast verwenden muss. Hatte vorher durch die DGV iteriert, was ja auch funzt.
    Aber du hast recht, kann auch durch die DataTable iterieren.

    Hab da allerdings noch ein anderes Prob. In dem DataSet schreibe ich in einige Zellen mit dem Datentyp system.decimal. Die Zahlen sind eigentlich Währungen (Preise).
    Wenn ich die Daten in das DataSet schreibe, haben die Zahlen im 1000er Zahelnformat keinen Punkt. Beim Druck dieser Zellen werden die Zahlen dann natürlich ohne Punkt dargestellt.

    Wie bekomme ich es hin, das die Zellen im Zahlenformat mit 1000er Trennzeichen und Nachkommastellen dargestellt werden.

    Irgendwie funzt das aber nicht.

    VB.NET-Quellcode

    1. For i = index to Gesamtangebote.Alleangebote.Rows.Count -1
    3. ep = currentpositionrow._Preis__inkl__Fracht_
    4. gp = currentpositionrow.Netto
    6. g.DrawString(CStr(ep), fntText, Brushes.Black, xEP, Y + 30)
    7. g.DrawString(CStr(gp), fntText, Brushes.Black, xGP, Y + 30)
    8. Next


    Durch den Bezug der Zelle zum DirecCast hänge ich immer in der gleichen Zeile fest

    VB.NET-Quellcode

    1. Dim currentrow = DirectCast(DirectCast(AlleangeboteBindingSource.Current, DataRowView).Row, Gesamtangebote.AlleangeboteRow)





    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „silverbob76GE“ ()

    silverbob76GE schrieb:


    Wie bekomme ich es hin, das die Zellen im Zahlenformat mit 1000er Trennzeichen und Nachkommastellen dargestellt werden.


    .ToString("C")

    silverbob76GE schrieb:


    Irgendwie funzt das aber nicht.


    Wo hast Du denn auch currentpositionrow her? Sicher nicht aus der Iteration. Da hat nichts einen Bezug zum DirectCast zu haben.

    VB.NET-Quellcode

    1. For Each alleangeboteRow As DataRow In Gesamtangebote.Alleangebote.Rows
    2. ep = alleangeboteRow ._Preis__inkl__Fracht_
    3. gp = alleangeboteRow .Netto
    5. g.DrawString(ep.ToString("C"), fntText, Brushes.Black, xEP, Y + 30)
    6. g.DrawString(gp.ToString("C"), fntText, Brushes.Black, xGP, Y + 30)
    8. Next


    Ungestestet das alles.

    @Dksksm Geht aber trotzdem nicht. :/

    silverbob76GE schrieb:

    Wie bekomme ich es hin, das die Zellen im Zahlenformat mit 1000er Trennzeichen und Nachkommastellen dargestellt werden.
    Probier mal dies:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim Provider = System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat
    3. Dim value = 12345.6789
    4. Label1.Text = value.ToString(Provider)
    5. Label2.Text = value.ToString("0.000", Provider)
    6. Label3.Text = value.ToString("n3", Provider) ' dieseer ist ansders
    7. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany & @Dksksm

    Der Tip mit der Währung von @Dksksm funktioniert.

    Bloß beim iterieren gehts net. ich bekomme keinen Zugriff auf die einzelnen Spalten, wenn ich es so mache wie @Dksksm geschrieben hat:

    VB.NET-Quellcode

    1. ep = alleangeboterow. => liefert mir keinen Zugriff auf die Spalten. Intellisense zeigt die Spaltennamen nicht an.


    Dksksm schrieb:

    Wo
    hast Du denn auch currentpositionrow her? Sicher nicht aus der
    Iteration. Da hat nichts einen Bezug zum DirectCast zu haben.


    Das ist die Bindingsource, die ich mit DirectCast anspreche.

    VB.NET-Quellcode

    1. Dim currentrow =
    2. DirectCast(DirectCast(AlleangeboteBindingSource.Current,
    3. DataRowView).Row, Gesamtangebote.AlleangeboteRow)


    Mein fehler. Mit
    Irgendwie funzt das aber nicht.
    meinte ich eigentlich, das das mit dem DataSet und dem DirectCast, das ich da nicht durchlaufen kann.


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „silverbob76GE“ ()

    Irgendwie hast Du nicht verstanden.....
    Dein DirectCast spricht über die Bindingssource genau einen DATENSATZ an, nämlich den aktuellen, der in der Bindingsource grade gewählt ist, durch die aktive Zeile deines DGV.
    Das alles kannst Du für das Drucken einer ganzen TABELLE vergessen, also löse Dich davon.

    Auf deiner Form macht der Name des Datensets ein kleines Problem, weil der Name identisch geschrieben ist wie das DS selbst
    Ich habe auf der Form "Gesamtangebote" in gesamtangebote geändert.



    In dem Moment ging auch zu schreiben:

    VB.NET-Quellcode

    1. For Each alleangeboteRow As Gesamtangebote.AlleangeboteRow In gesamtangebote.Alleangebote
    3. Next


    Nachtrag: Deine Tabelle "Alleangebote" ist leider ganz anders aufgebaut, als Du schreibst:
    In dem DataSet schreibe ich in einige Zellen mit dem Datentyp system.decimal. Die Zahlen sind eigentlich Währungen (Preise).
    Nö, da sind nur Strings drinnen, ausser "ID" und "Pos". Wenn Du decimal speichern willst, dann tu es auch. Damit kann man rechnen, die kann man formatiert ausgeben, je nach Währung anders. Strings sind Strings, also bereits eine Zeichenkette. Leider völliger Quark.

    Nachtrag2: mit einer For - Next -Schleife die Anzahl der DGV Zeilen zu durchflöhen ist nicht besonders geschickt, wenn man sowieso nur auf die aktuelle Row aus der Bindingssource zugreift, die sich ja vor allem nicht verändert ;)
    Nachtrag3: Einen String an einen anderen String zu übergeben um ihn dann zu drucken ist sinnfrei, Du kannst Das Feld "_Preis__inkl__Fracht_" (Beispiel) sowieso direkt drucken. Erstens es ist schon ein String und zweitens könnte man, wäre es vom Datentyp Decimal oder Double den Wert mit .ToString("n2", Provider) gleich richtig formatiert ausgeben.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Dksksm“ ()

    Dksksm schrieb:

    was geht nicht?

    silverbob76GE schrieb:

    Zahlenformat mit 1000er Trennzeichen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Dksksm

    Danke für deinen Hinweis. Das der DirectCast genau einen Datensatz anspricht habe ich verstanden, leider etwas zu spät. Daher ja auch meine Frage, wie ich das Problem lösen kann. Wußte halt nicht wie. Ich hab auf die schnelle ein Beispielprojekt erstellt, daher auch die falschen Datenformate. In meiner Prog habe ich die Spalten als Decimal.

    Nachtrag2: mit einer For - Next -Schleife die Anzahl der DGV Zeilen zu durchflöhen ist nicht besonders geschickt, wenn man sowieso nur auf die aktuelle Row aus der Bindingssource zugreift, die sich ja vor allem nicht verändert

    Die For Schleife soll ja das komplette DataTable durchlaufen. Das der DirectCast da fehl am Platz ist, war mir auch klar.
    Nur wollte ich nicht auf ein typisiertes DataSet untypisiert zugreifen auch wenns funktioniert.

    Nachtrag3: Einen String an einen anderen String zu übergeben um ihn dann zu drucken ist sinnfrei, Du kannst Das Feld "_Preis__inkl__Fracht_" (Beispiel) sowieso direkt drucken. Erstens es ist schon ein String und zweitens könnte man, wäre es vom Datentyp Decimal oder Double den Wert mit .ToString("n2", Provider) gleich richtig formatiert ausgeben.


    Ist klar, aber wie gesagt, in meiner Prog ist der Datentyp auf decimal. Hatte den Fehler auf die schnelle in der Beispiel App nicht bemerkt.

    By the way, Fehler passieren. Wenn man keine Fehler machen würde, würde man sich nicht verbessern. Bin halt noch Newbie in sehr vielen Bereichen im programmieren. Das ich da Hilfe so einem Forum suche wie viele andere, ist denke ich selbstverständlich. Habe bevor ich hier einen Thread eröffnet habe, viel gegoogelt, viel gelesen, Videos von EdR geschaut. Allerdings ist es gerade am Anfang so das man nicht alles versteht und dann und wann auch Starthilfe braucht.

    Danke für eure Hilfe. Finds echt toll von euch. War schon echt verzweifelt und kurz davor, arbeit von ca. 2 Monaten einfach wieder aufzugeben weil es einfach nicht mehr weiterging.

    Ich klink mich nochmal (viel zu spät) ein. Habe das Gefühl, dass das hier ein wenig fahrig wird. Ich komm gar nicht mehr hinterher, was das aktuelle Problem ist.
    Der mehrseitige Druck klappt grundsätzlich?
    Kannst Du nun typisiert Dein ganzes tDS bzw. die DataTable durchlaufen?
    Welche Probleme gibt es jetzt noch?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    silverbob76GE schrieb:


    Die For Schleife soll ja das komplette DataTable durchlaufen. Das der DirectCast da fehl am Platz ist, war mir auch klar.
    Nur wollte ich nicht auf ein typisiertes DataSet untypisiert zugreifen auch wenns funktioniert.


    Ich habe Dir im Post#49 eine funktionierende Lösung gepostet. Da bietet man eine Lösung an und es wird nicht drauf eingegangen.

    Ich habe Dir im Post#49 eine funktionierende Lösung gepostet. Da bietet man eine Lösung an und es wird nicht drauf eingegangen.


    Wo hast du heraus gelesen, das ich auf deinen Vorschlag nicht eingegangen bin? Das Zitat bezog sich zur Erläuterung auf eine Situation, die zum Anfang des Threads erläutert wurde.

    Mein Zitat bezog sich darauf, das ich mit dem DirectCast falsch lag und nicht weiter wusste. Am Anfang des Threads hatte ich einen untypisierten Zugriff auf das DataTable. @VaporiZed hat mir zu verstehen gegeben, das der DirectCast einen typisierten Zugriff ermöglicht, den ich bis dahin noch nicht verstanden hatte. Das hab ich erst mal umgesetzt, wobei ich dann in der aktuellen Zeile des DGV, so wie du - @Dksksm - ja schon erkannt hast, quasi gefangen war.

    @VaporiZed : Hab den DirectCast wie von dir vorgeschlagen eingesetzt, allerdings führte das nicht ganz zum Ziel, da ich durch ".current" immer wieder in der gleichen Zeile war. @Dksksm hat das erkannt und mir den Code genannt (danke dafür), das ich auf das DataTable zugreifen kann um alle Datensätze in einer For-Schleife zu durchlaufen.

    Den Druck der mehrseitigen PDF habe ich im Moment zumindest gelöst. Teste gerade noch alle Eventualitäten.
    @RodFromGermany,@Akanel, @Dksksm und du habt mir enorm weitergeholfen. Stand vor Problemen, die ich trotz viel googeln und Recherche hier im Forum selbst nicht gelöst hätte.

    Ich kann jetzt dank @Dksksm's Tip das DataTable durchlaufen, typisiert. Im Moment widerholen sich die Datensätze auf unterschiedlichen Seiten, aber muss da genau schauen wie ich das hinbekomme. Bin einen großen Schritt weiter, mal sehen was da noch kommt.

    Will nur klarstellen, das ich die Vorschläge hier schon ernst nehme, sonst machts ja keinen Sinn in nem Forum Hilfe zu suchen und das angebotene dann nicht umzusetzen, richtig? Möchte ja auch gern was dazu lernen, aber lasse mir auch nicht vorwerfen, ich würde nicht umsetzen, was man mir als Ansatz vorschlägt.

    Ah, ok, klar soweit. Nee, dass mein Tip mit dem Current nicht den Durchbruch brachte, ist mir klar. Aber wenn Du den größten Teil der aktuellen Probleme bewältigt hast, ist doch schon mal was gewonnen. Gib einfach bescheid, wenn's wieder knifflig wird. Ich hoffe, dass ich dann früher (und gezielter) helfen kann :rolleyes:
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    hi @VB1963

    Nein, habe ich nicht. Habs zwar gesehen, aber hatte dann für mich entschieden, das ich es mit dem Tut von @RodFromGermany versuche.

    Klappt soweit auch ganz gut, aber immer wieder treten hier und da Sachen auf, an denen ich arbeite. Ich werd mir das Tut aber anschauen, eventuell ist es ja die passendere Lösung.

    @silverbob76GE Wenn Du die auftretenden Probleme ordentlich beschreibst, können wir Dir auch besser helfen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi Leute

    kleines Update. Habs jetzt endlich hinbekommen, das die unterschiedlichen Seiten gedruckt werden (Seite 1 mit Kopfzeile, Seite 2 nur noch Positionszeilen, Seite X Positionszeilen + Schlußtext)
    .
    Allerdings konnte ich mit der For each Schleife von @Dksksm nicht das DataSet so durchlaufen, wie es brauche. Ich muss eine Variable beim durchlaufen des DataSets mitlaufen lassen, damit ich die Positionsnummer im Angebot korrekt zählen / darstellen kann. Da ich es nicht anders hinbekommen habe, musste ich es trotzdem mit einem untypisierten Zugriff auf das DataSet machen.
    Ist vermutlich nicht die eleganteste Lösung, aber Sie funzt. Würde den Zugriff zwar gern typisiert erstellen, weiß aber nicht wie.

    Vielleicht hilft der Code ja dem ein oder anderen bei einem ähnlichen Problem weiter.

    Hier mal das komplette PrintPage Event.
    Spoiler anzeigen

    Quellcode

    1. Dim margin = PrintDocument1.DefaultPageSettings.Margins
    2. Dim g = e.Graphics
    3. margin.Left = 30
    4. margin.Right = 30
    5. margin.Top = 30
    6. margin.Bottom = 30
    8. leftMargin = margin.Left
    9. rightMargin = margin.Right
    10. topMargin = margin.Top
    11. bottomMargin = margin.Top
    13. Dim rc = e.Graphics.VisibleClipBounds
    14. rc.Offset(margin.Left + 30, margin.Top + 30) ' obere linke Ecke
    15. rc.Width -= (margin.Left + 20 + margin.Right - 20) ' neue Breite
    16. rc.Height -= (margin.Top + margin.Bottom) ' neue Höhe
    18. g.DrawRectangle(Pens.Gray, margin.Left, margin.Top, rc.Width, rc.Height)
    20. PrintDocument1.DocumentName = Label64.Text
    21. Kopfzeile1 = "Angebot an " & tbkunde.Text & " - vom " & Date.Now.ToShortDateString
    23. If tbanfragenummer.Text = "" Then
    24. Kopfzeile2 = "BV " + tbkommission.Text + " in " + tbplz1.Text + " " + tblieferort.Text
    25. ElseIf tbanfragenummer.Text = "" And tbkommission.Text = "" Then
    26. Kopfzeile2 = "BV in " + tbplz1.Text + " " + tblieferort.Text
    27. ElseIf tbkommission.Text = "" Then
    28. Kopfzeile2 = "Anfragenummer " + tbanfragenummer.Text + " - BV in " + tbplz1.Text + " " + tblieferort.Text
    29. Else
    30. Kopfzeile2 = "Anfragenummer " + tbanfragenummer.Text + " - BV " + tbkommission.Text + " in " + tbplz1.Text + " " + tblieferort.Text
    31. End If
    33. Logo = "c:\users\" + Environment.UserName + "\desktop\Kingspan Logo.jpg"
    35. X = leftMargin
    36. Y = topMargin
    38. If pagenb = 0 Then
    39. If File.Exists(Logo) Then
    40. Dim ologo As Image = Image.FromFile(Logo)
    41. Dim bmp As New Bitmap(ologo, 180, 95)
    42. g.DrawImage(bmp, 600, margin.Top + 25)
    43. End If
    44. If (Kopfzeile1 <> "") Then
    45. Y += 40
    46. g.DrawString(Kopfzeile1, Angebotstitelschrift, Brushes.Black, X + 20, Y)
    47. End If
    48. If (Kopfzeile2 <> "") Then
    49. Y += 20
    50. g.DrawString(Kopfzeile2, Angebotstitelschrift, Brushes.Black, X + 20, Y)
    51. End If
    53. Y += 15
    54. 'Druckdaten zur Firma setzen
    55. 'Zeilen an den Kunden
    56. Y += 40
    57. g.DrawString("Kingspan GmbH | Am Schornacker 2 | 46485 Wesel", fntText, BlackBrush, X + 20, Y)
    58. Y += 30
    59. g.DrawString("Angebot an" & vbTab & vbTab & ": " & tbkunde.Text, fntText, Brushes.Black, X + 20, Y)
    60. Y += 20
    61. g.DrawString("Ansprechpartner" & vbTab & vbTab & ": " & tbansprech.Text, fntText, Brushes.Black, X + 20, Y)
    62. Y += 20
    63. g.DrawString("Anfragenummer" & vbTab & vbTab & ": " & tbanfragenummer.Text, fntText, Brushes.Black, X + 20, Y)
    64. Y += 20
    65. g.DrawString("PLZ / Lieferort" & vbTab & vbTab & ": " & tbplz1.Text & " / " & tblieferort.Text, fntText, Brushes.Black, X + 20, Y)
    66. Y += 20
    67. g.DrawString("BV / Kommission" & vbTab & vbTab & ": " & tbkommission.Text, fntText, Brushes.Black, X + 20, Y)
    69. 'Zeilen für Verkauf und Innendienst
    70. Dim xverkauf As Integer = leftMargin + 450
    72. Y = 180
    73. g.DrawString("Verkaufsleiter" & vbTab & ": " & cboVerkaufsleiter.Text, fntText, Brushes.Black, xverkauf, Y)
    74. Y += 20
    75. g.DrawString("Tel." & vbTab & vbTab & ": " & tbtelA.Text, fntText, Brushes.Black, xverkauf, Y)
    76. Y += 20
    77. g.DrawString("Fax." & vbTab & vbTab & ": " & tbfaxA.Text, fntText, Brushes.Black, xverkauf, Y)
    78. Y += 20
    79. g.DrawString("E-Mail" & vbTab & vbTab & ": " & tbemailA.Text, fntText, Brushes.Black, xverkauf, Y)
    80. Y += 20
    81. g.DrawString("Mobil" & vbTab & vbTab & ": " & tbmobilA.Text, fntText, Brushes.Black, xverkauf, Y)
    82. Y += 20
    83. g.DrawString("Innendienst:" & vbTab & ": " & cboInnendienst.Text, fntText, Brushes.Black, xverkauf, Y)
    84. Y += 20
    85. g.DrawString("Tel." & vbTab & vbTab & ": " & tbtelI.Text, fntText, Brushes.Black, xverkauf, Y)
    86. Y += 20
    87. g.DrawString("Fax" & vbTab & vbTab & ": " & tbfaxI.Text, fntText, Brushes.Black, xverkauf, Y)
    88. Y += 20
    89. g.DrawString("E-Mail" & vbTab & vbTab & ": " & tbemailI.Text, fntText, Brushes.Black, xverkauf, Y)
    91. Y += 40
    92. 'Angebotsdatum
    93. g.DrawString(Date.Now.ToShortDateString, fntText, Brushes.Black, xverkauf + 220, Y)
    95. 'Angebotstext
    96. Y += 15
    97. g.DrawString("Sehr geehrte Damen und Herren,", fntText, Brushes.Black, X + 20, Y)
    98. Y += 30
    99. g.DrawString("wir danken Ihnen für Ihre Anfrage und unterbreiten Ihnen unser für Sie kostenlos ausgearbeitetes Angebot wie folgt:", fntText, Brushes.Black, X + 20, Y)
    101. Y += 25
    102. Dim mybrush As SolidBrush = New SolidBrush(Color.LightGray)
    103. g.FillRectangle(mybrush, X + 20, Y, X + 710, 25) 'Y-Pos = 460 am unteren Ende des Rechtecks
    105. 'Tabellenkopfzeilen
    106. X = X + 30
    107. Y = Y + 5 'Y-Pos = 430
    109. Dim xPos As Integer = X + 5
    110. Dim XBeschreibung As Integer = xPos + 35
    111. Dim xLänge As Integer = XBeschreibung + 320
    112. Dim xStück As Integer = xLänge + 80
    113. Dim xMenge As Integer = xStück + 80
    114. Dim xEP As Integer = xMenge + 80
    115. Dim xGP As Integer = xEP + 70
    117. g.DrawString("Pos.", Angebotstitelschrift, Brushes.Black, X, Y)
    118. g.DrawString("Beschreibung", Angebotstitelschrift, Brushes.Black, XBeschreibung, Y)
    119. g.DrawString("Länge", Angebotstitelschrift, Brushes.Black, xLänge, Y)
    120. g.DrawString("Stück", Angebotstitelschrift, Brushes.Black, xStück, Y)
    121. g.DrawString("Menge", Angebotstitelschrift, Brushes.Black, xMenge, Y)
    122. g.DrawString("EP (€)", Angebotstitelschrift, Brushes.Black, xEP, Y)
    123. g.DrawString("GP (€)", Angebotstitelschrift, Brushes.Black, xGP, Y)
    125. Dim pos As String
    126. Dim element As String
    127. Dim beschreibung As String
    128. Dim dicke As String
    129. Dim länge As String
    130. Dim stück As String
    131. Dim menge As String
    132. Dim ep As Decimal
    133. Dim gp As Decimal
    134. Dim mwst As Decimal
    135. Dim netto As Decimal
    136. Dim brutto As Decimal
    137. Dim pen1 As New Pen(Brushes.Black, 0.5)
    138. Dim i As Integer = 0
    140. Y = Y + 25 'Y-Pos = 485
    142. For i = index To kundenangebot.Einzelangebot.Rows.Count - 1
    144. netto = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Netto").ToString)
    145. mwst = CDec(kundenangebot.Einzelangebot.Rows(i).Item("MwSt").ToString)
    146. brutto = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Brutto").ToString)
    147. element = kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    148. dicke = kundenangebot.Einzelangebot.Rows(i).Item("Kerndicke").ToString
    149. brutto = netto + mwst
    150. pos = kundenangebot.Einzelangebot.Rows(i).Item("Pos").ToString
    151. länge = kundenangebot.Einzelangebot.Rows(i).Item("Länge").ToString
    152. stück = kundenangebot.Einzelangebot.Rows(i).Item("Stück").ToString
    153. menge = kundenangebot.Einzelangebot.Rows(i).Item("Menge").ToString
    154. ep = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Preis (inkl. Fracht)").ToString)
    155. gp = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Netto").ToString)
    156. element = kundenangebot.Einzelangebot.Rows(i).Item("Anwendung").ToString & " " & kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    158. Dim j As Integer
    159. j = 10 + (currentrecord * 10)
    161. beschreibung = "Kerndicke" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Kerndicke").ToString _
    162. & vbCrLf _
    163. & "Dämmkern" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Dämmkern").ToString & vbCrLf _
    164. & "U-Wert" & vbTab & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("U-Wert").ToString & " W/m²K" & vbCrLf _
    165. & "Stahldicke (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Stahldicke (A/I)").ToString & vbCrLf _
    166. & "Profilierung (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Profilierung (A/I)").ToString & vbCrLf _
    167. & "Beschichtung (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Beschichtung (A/I)").ToString & vbCrLf _
    168. & "Farbton (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Farbton (A/I)").ToString
    170. element = kundenangebot.Einzelangebot.Rows(i).Item("Anwendung").ToString & " " & kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    172. g.DrawString(CStr(j), Fettschrift, Brushes.Black, X, Y)
    173. g.DrawString(element, Fettschrift, Brushes.Black, XBeschreibung, Y)
    174. Y += 25
    175. g.DrawString(beschreibung, fntText, Brushes.Black, XBeschreibung, Y)
    176. Y += 25
    177. g.DrawString(länge, fntText, Brushes.Black, xLänge, Y)
    178. Y += 5
    179. g.DrawString(stück, fntText, Brushes.Black, xStück, Y)
    180. g.DrawString(menge, fntText, Brushes.Black, xMenge, Y)
    181. g.DrawString(ep.ToString("C"), fntText, Brushes.Black, xEP - 13, Y)
    182. g.DrawString(gp.ToString("C"), fntText, Brushes.Black, xGP - 13, Y)
    184. Y += 100 'Y-Pos = 640
    185. g.DrawLine(pen1, X, Y, X + 730, Y)
    187. currentrecord += 1
    188. index = i + 1
    189. Y = Y + 10
    191. If (kundenangebot.Einzelangebot.Rows.Count > 3 And currentrecord = 3) Then
    192. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    193. e.HasMorePages = True
    194. pagenb += 1
    195. Y = 60
    196. Exit Sub
    197. End If
    199. Next
    201. If kundenangebot.Einzelangebot.Rows.Count <= 3 Then
    202. Dim xPos2 As Integer = leftMargin + 600
    203. Dim i2 As Integer
    204. Dim netto2 As Decimal
    205. Dim mwst2 As Decimal
    206. Dim brutto2 As Decimal
    208. For i2 = 0 To EinzelangebotBindingSource.Count
    209. netto2 += CDec(DataGridView1.Rows(i2).Cells.Item(14).Value)
    210. Next
    212. mwst2 = CDec(netto2 * 0.19)
    213. brutto2 = netto2 + mwst2
    214. lblgesamtnetto.Text = Format(netto2, "C")
    215. lblgesamtmwst.Text = Format(mwst2, "C")
    216. lblgesamtbrutto.Text = Format(brutto2, "C")
    217. g.DrawString("Netto", Angebotstitelschrift, Brushes.Black, xPos2, Y)
    218. g.DrawString(lblgesamtnetto.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y)
    219. Y += 20
    220. g.DrawString("MwSt", Angebotstitelschrift, Brushes.Black, xPos2, Y)
    221. g.DrawString(lblgesamtmwst.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y)
    222. Y += 20
    223. g.DrawString("Brutto", Angebotstitelschrift, Brushes.Black, xPos2, Y)
    224. g.DrawString(lblgesamtbrutto.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y)
    225. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    227. e.HasMorePages = True
    228. pagenb += 1
    229. Y = 60
    230. Exit Sub
    232. ElseIf kundenangebot.Einzelangebot.Rows.Count > 3 Then
    234. If currentrecord = 4 Then
    235. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    236. e.HasMorePages = True
    237. pagenb += 1
    238. Y = 60
    239. Exit Sub
    240. End If
    241. Else
    242. e.HasMorePages = False
    243. End If
    244. End If
    246. If pagenb = 1 Then
    247. If kundenangebot.Einzelangebot.Rows.Count <= 3 Then
    248. g.DrawString(RichTextBox1.Text, fntText, Brushes.Black, X + 10, Y)
    249. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    250. End If
    252. If kundenangebot.Einzelangebot.Rows.Count >= 4 Then
    254. Y += 25
    255. Dim mybrush As SolidBrush = New SolidBrush(Color.LightGray)
    256. g.FillRectangle(mybrush, X + 20, Y, X + 710, 25) 'Y-Pos = 460 am unteren Ende des Rechtecks
    258. 'Tabellenkopfzeilen
    259. X = X + 30
    260. Y = Y + 5 'Y-Pos = 430
    262. Dim xPos As Integer = X + 5
    263. Dim XBeschreibung As Integer = xPos + 35
    264. Dim xLänge As Integer = XBeschreibung + 320
    265. Dim xStück As Integer = xLänge + 80
    266. Dim xMenge As Integer = xStück + 80
    267. Dim xEP As Integer = xMenge + 80
    268. Dim xGP As Integer = xEP + 70
    270. g.DrawString("Pos.", Angebotstitelschrift, Brushes.Black, X, Y)
    271. g.DrawString("Beschreibung", Angebotstitelschrift, Brushes.Black, XBeschreibung, Y)
    272. g.DrawString("Länge", Angebotstitelschrift, Brushes.Black, xLänge, Y)
    273. g.DrawString("Stück", Angebotstitelschrift, Brushes.Black, xStück, Y)
    274. g.DrawString("Menge", Angebotstitelschrift, Brushes.Black, xMenge, Y)
    275. g.DrawString("EP (€)", Angebotstitelschrift, Brushes.Black, xEP, Y)
    276. g.DrawString("GP (€)", Angebotstitelschrift, Brushes.Black, xGP, Y)
    278. Dim pos As String
    279. Dim element As String
    280. Dim beschreibung As String
    281. Dim dicke As String
    282. Dim länge As String
    283. Dim stück As String
    284. Dim menge As String
    285. Dim ep As Decimal
    286. Dim gp As Decimal
    287. Dim mwst As Decimal
    288. Dim netto As Decimal
    289. Dim brutto As Decimal
    290. Dim pen1 As New Pen(Brushes.Black, 0.5)
    291. Dim i As Integer = 0
    293. Y = Y + 25 'Y-Pos = 485
    295. For i = index To kundenangebot.Einzelangebot.Rows.Count - 1
    297. netto = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Netto").ToString)
    298. mwst = CDec(kundenangebot.Einzelangebot.Rows(i).Item("MwSt").ToString)
    299. brutto = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Brutto").ToString)
    300. element = kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    301. dicke = kundenangebot.Einzelangebot.Rows(i).Item("Kerndicke").ToString
    302. brutto = netto + mwst
    303. pos = kundenangebot.Einzelangebot.Rows(i).Item("Pos").ToString
    304. länge = kundenangebot.Einzelangebot.Rows(i).Item("Länge").ToString
    305. stück = kundenangebot.Einzelangebot.Rows(i).Item("Stück").ToString
    306. menge = kundenangebot.Einzelangebot.Rows(i).Item("Menge").ToString
    307. ep = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Preis (inkl. Fracht)").ToString)
    308. gp = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Netto").ToString)
    309. element = kundenangebot.Einzelangebot.Rows(i).Item("Anwendung").ToString & " " & kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    311. Dim j As Integer
    312. j = 10 + (currentrecord * 10)
    314. beschreibung = "Kerndicke" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Kerndicke").ToString _
    315. & vbCrLf _
    316. & "Dämmkern" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Dämmkern").ToString & vbCrLf _
    317. & "U-Wert" & vbTab & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("U-Wert").ToString & " W/m²K" & vbCrLf _
    318. & "Stahldicke (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Stahldicke (A/I)").ToString & vbCrLf _
    319. & "Profilierung (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Profilierung (A/I)").ToString & vbCrLf _
    320. & "Beschichtung (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Beschichtung (A/I)").ToString & vbCrLf _
    321. & "Farbton (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Farbton (A/I)").ToString
    323. element = kundenangebot.Einzelangebot.Rows(i).Item("Anwendung").ToString & " " & kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    325. g.DrawString(CStr(j), Fettschrift, Brushes.Black, X, Y)
    326. g.DrawString(element, Fettschrift, Brushes.Black, XBeschreibung, Y)
    327. Y += 25
    328. g.DrawString(beschreibung, fntText, Brushes.Black, XBeschreibung, Y)
    329. Y += 25
    330. g.DrawString(länge, fntText, Brushes.Black, xLänge, Y)
    331. Y += 5
    332. g.DrawString(stück, fntText, Brushes.Black, xStück, Y)
    333. g.DrawString(menge, fntText, Brushes.Black, xMenge, Y)
    334. g.DrawString(ep.ToString("C"), fntText, Brushes.Black, xEP - 13, Y)
    335. g.DrawString(gp.ToString("C"), fntText, Brushes.Black, xGP - 13, Y)
    337. Y += 100 'Y-Pos = 640
    338. g.DrawLine(pen1, X, Y, X + 730, Y)
    340. currentrecord += 1
    341. index = i + 1
    342. Y = Y + 10
    344. If Y >= 800 Then
    345. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    346. e.HasMorePages = True
    347. pagenb += 1
    348. Y = 60
    349. Exit Sub
    350. End If
    352. Next
    354. Dim xPos2 As Integer = leftMargin + 600
    355. Dim i2 As Integer
    356. Dim netto2 As Decimal
    357. Dim mwst2 As Decimal
    358. Dim brutto2 As Decimal
    360. For i2 = 0 To EinzelangebotBindingSource.Count
    361. netto2 += CDec(DataGridView1.Rows(i2).Cells.Item(14).Value)
    362. Next
    364. mwst2 = CDec(netto2 * 0.19)
    365. brutto2 = netto2 + mwst2
    366. lblgesamtnetto.Text = Format(netto2, "C")
    367. lblgesamtmwst.Text = Format(mwst2, "C")
    368. lblgesamtbrutto.Text = Format(brutto2, "C")
    369. g.DrawString("Netto", Angebotstitelschrift, Brushes.Black, xPos2, Y)
    370. g.DrawString(lblgesamtnetto.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y)
    371. Y += 20
    372. g.DrawString("MwSt", Angebotstitelschrift, Brushes.Black, xPos2, Y)
    373. g.DrawString(lblgesamtmwst.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y)
    374. Y += 20
    375. g.DrawString("Brutto", Angebotstitelschrift, Brushes.Black, xPos2, Y)
    376. g.DrawString(lblgesamtbrutto.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y)
    378. g.DrawString(RichTextBox1.Text, fntText, Brushes.Black, X + 10, Y)
    379. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    381. e.HasMorePages = False
    382. Exit Sub
    383. End If
    384. End If
    386. If pagenb > 1 Then
    388. X = 60
    389. Y = 60
    390. Dim mybrush As SolidBrush = New SolidBrush(Color.LightGray)
    391. g.FillRectangle(mybrush, 50, 55, 740, 25) 'Y-Pos = 460 am unteren Ende des Rechtecks
    393. 'Tabellenkopfzeilen
    394. Dim xPos As Integer = X + 5
    395. Dim XBeschreibung As Integer = xPos + 35
    396. Dim xLänge As Integer = XBeschreibung + 320
    397. Dim xStück As Integer = xLänge + 80
    398. Dim xMenge As Integer = xStück + 80
    399. Dim xEP As Integer = xMenge + 80
    400. Dim xGP As Integer = xEP + 70
    402. g.DrawString("Pos.", Angebotstitelschrift, Brushes.Black, X, Y)
    403. g.DrawString("Beschreibung", Angebotstitelschrift, Brushes.Black, XBeschreibung, Y)
    404. g.DrawString("Länge", Angebotstitelschrift, Brushes.Black, xLänge, Y)
    405. g.DrawString("Stück", Angebotstitelschrift, Brushes.Black, xStück, Y)
    406. g.DrawString("Menge", Angebotstitelschrift, Brushes.Black, xMenge, Y)
    407. g.DrawString("EP (€)", Angebotstitelschrift, Brushes.Black, xEP, Y)
    408. g.DrawString("GP (€)", Angebotstitelschrift, Brushes.Black, xGP, Y)
    410. For i = index To kundenangebot.Einzelangebot.Rows.Count - 1
    412. Dim pos As String
    413. Dim element As String
    414. Dim beschreibung As String
    415. Dim dicke As String
    416. Dim länge As String
    417. Dim stück As String
    418. Dim menge As String
    419. Dim ep As Decimal
    420. Dim gp As Decimal
    421. Dim mwst As Decimal
    422. Dim netto As Decimal
    423. Dim brutto As Decimal
    424. Dim pen1 As New Pen(Brushes.Black, 0.5)
    425. Dim i1 As Integer = 0
    427. Y = Y + 25 'Y-Pos = 485
    429. netto = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Netto").ToString)
    430. mwst = CDec(kundenangebot.Einzelangebot.Rows(i).Item("MwSt").ToString)
    431. brutto = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Brutto").ToString)
    432. element = kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    433. dicke = kundenangebot.Einzelangebot.Rows(i).Item("Kerndicke").ToString
    434. brutto = netto + mwst
    435. pos = kundenangebot.Einzelangebot.Rows(i).Item("Pos").ToString
    436. länge = kundenangebot.Einzelangebot.Rows(i).Item("Länge").ToString
    437. stück = kundenangebot.Einzelangebot.Rows(i).Item("Stück").ToString
    438. menge = kundenangebot.Einzelangebot.Rows(i).Item("Menge").ToString
    439. ep = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Preis (inkl. Fracht)").ToString)
    440. gp = CDec(kundenangebot.Einzelangebot.Rows(i).Item("Netto").ToString)
    441. element = kundenangebot.Einzelangebot.Rows(i).Item("Anwendung").ToString & " " & kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    443. Dim j As Integer
    444. j = 10 + (currentrecord * 10)
    446. beschreibung = "Kerndicke" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Kerndicke").ToString _
    447. & vbCrLf _
    448. & "Dämmkern" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Dämmkern").ToString & vbCrLf _
    449. & "U-Wert" & vbTab & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("U-Wert").ToString & " W/m²K" & vbCrLf _
    450. & "Stahldicke (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Stahldicke (A/I)").ToString & vbCrLf _
    451. & "Profilierung (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Profilierung (A/I)").ToString & vbCrLf _
    452. & "Beschichtung (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Beschichtung (A/I)").ToString & vbCrLf _
    453. & "Farbton (A/I)" & vbTab & vbTab & kundenangebot.Einzelangebot.Rows(i).Item("Farbton (A/I)").ToString
    455. element = kundenangebot.Einzelangebot.Rows(i).Item("Anwendung").ToString & " " & kundenangebot.Einzelangebot.Rows(i).Item("Element").ToString
    457. g.DrawString(CStr(j), Fettschrift, Brushes.Black, X, Y)
    458. g.DrawString(element, Fettschrift, Brushes.Black, XBeschreibung, Y)
    459. Y += 25
    460. g.DrawString(beschreibung, fntText, Brushes.Black, XBeschreibung, Y)
    461. Y += 25
    462. g.DrawString(länge, fntText, Brushes.Black, xLänge, Y)
    463. Y += 5
    464. g.DrawString(stück, fntText, Brushes.Black, xStück, Y)
    465. g.DrawString(menge, fntText, Brushes.Black, xMenge, Y)
    466. g.DrawString(ep.ToString("C"), fntText, Brushes.Black, xEP - 13, Y)
    467. g.DrawString(gp.ToString("C"), fntText, Brushes.Black, xGP - 13, Y)
    469. Y += 100 'Y-Pos = 640
    470. g.DrawLine(pen1, X, Y, X + 730, Y)
    472. currentrecord += 1
    473. index = i + 1
    474. Y = Y + 10
    476. If Y >= 650 Then
    477. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    478. e.HasMorePages = True
    479. pagenb += 1
    480. Y = 60
    481. Exit Sub
    482. End If
    483. Next
    485. Dim xPos2 As Integer = leftMargin + 600
    486. Dim i2 As Integer
    487. Dim netto2 As Decimal
    488. Dim mwst2 As Decimal
    489. Dim brutto2 As Decimal
    491. For i2 = 0 To EinzelangebotBindingSource.Count
    492. netto2 += CDec(DataGridView1.Rows(i2).Cells.Item(14).Value)
    493. Next
    495. mwst2 = CDec(netto2 * 0.19)
    496. brutto2 = netto2 + mwst2
    497. lblgesamtnetto.Text = Format(netto2, "C")
    498. lblgesamtmwst.Text = Format(mwst2, "C")
    499. lblgesamtbrutto.Text = Format(brutto2, "C")
    500. g.DrawString("Netto", Angebotstitelschrift, Brushes.Black, xPos2, Y + 30)
    501. g.DrawString(lblgesamtnetto.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y + 30)
    502. Y += 20
    503. g.DrawString("MwSt", Angebotstitelschrift, Brushes.Black, xPos2, Y + 30)
    504. g.DrawString(lblgesamtmwst.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y + 30)
    505. Y += 20
    506. g.DrawString("Brutto", Angebotstitelschrift, Brushes.Black, xPos2, Y + 30)
    507. g.DrawString(lblgesamtbrutto.Text, Angebotstitelschrift, Brushes.Black, xPos2 + 70, Y + 30)
    509. g.DrawString(RichTextBox1.Text, fntText, Brushes.Black, X + 10, Y + 50)
    510. g.DrawString(String.Format(" - Seite {0} -", pagenb + 1), fntText, Brushes.Black, 380, 1120)
    512. e.HasMorePages = False
    513. Exit Sub
    514. End If
    515. End Sub