Druck über mehrere Seiten.....Nur die erste wird gedruckt

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Hallo, wie gesagt poste ich nun mein kleines Druckevent. :)

    Aufs Begin_Print habe ich verzichtet. Ist in meinem Fall jetzt nicht so relevant finde ich.
    Dieses kleine Druckevent druckt eine oder mehrere Seiten aus
    ( Abhängig von der Anzahl der Daten in der DB, die übrigens eine lokale MS-Access Datenbank ist, und die unter anderem eine Tabelle mit Kontakten besitzt)


    VB.NET-Quellcode

    1. ​ Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    2. Dim sql As String = "select * from kontakte order by nachname "
    3. Dim cmd As New OleDb.OleDbCommand
    4. Dim dt As New DataTable
    5. Dim da As New OleDb.OleDbDataAdapter
    6. Dim g = e.Graphics
    7. Dim ft = New Font("Times New Roman", 10, FontStyle.Regular)
    9. ' Text Ausrichtung
    10. text_rechts.Alignment = StringAlignment.Far 'far= rechts ausgerichtet
    11. text_links.Alignment = StringAlignment.Near 'near ist links ausgerichtet
    12. text_mitte.Alignment = StringAlignment.Center ' center ist mittig ausgerichtet
    14. cn.Open()
    15. cmd.Connection = cn
    16. cmd.CommandText = sql
    17. da.SelectCommand = cmd
    19. x_achse = 100
    20. y_achse = 500
    22. g.DrawString("Kontaktliste", New Font("Times New Roman", 26, FontStyle.Bold), Brushes.Black, y_achse, x_achse, text_links)
    24. 'erste zahl startpunkt von links ( Y achse ),zweite zahl ist die höhe von oben ( x achse ),dritte zahl ist der endpunkt ( y achse),vierte zahl ist die höhe von oben ( x achse )
    25. g.DrawLine(Pens.Black, 500, 150, 700, 150)
    27. x_achse = 200
    28. y_achse = 40
    30. da.Fill(dt)
    32. For i As Integer = firstRow To dt.Rows.Count - 1
    34. If i - firstRow < 16 Then
    35. g.DrawString(dt.Rows(i)("vorname"), ft, Brushes.Black, y_achse, x_achse, text_links)
    36. g.DrawString(dt.Rows(i)("nachname"), ft, Brushes.Black, y_achse + 100, x_achse, text_links)
    37. g.DrawString(dt.Rows(i)("strasse"), ft, Brushes.Black, y_achse + 230, x_achse, text_links)
    38. g.DrawString(dt.Rows(i)("plz"), ft, Brushes.Black, y_achse + 410, x_achse, text_links)
    39. g.DrawString(dt.Rows(i)("wohnort"), ft, Brushes.Black, y_achse + 500, x_achse, text_links)
    40. g.DrawString(dt.Rows(i)("telefon"), ft, Brushes.Black, y_achse + 650, x_achse, text_links)
    41. g.DrawString(dt.Rows(i)("mobil"), ft, Brushes.Black, y_achse + 750, x_achse, text_links)
    42. g.DrawString(dt.Rows(i)("email"), ft, Brushes.Black, y_achse + 850, x_achse, text_links)
    43. g.DrawString(dt.Rows(i)("geburtstag"), ft, Brushes.Black, y_achse + 1000, x_achse, text_links)
    44. x_achse = x_achse + 30 'abstand von der vorherigen zeile
    45. Else
    46. firstRow = i
    47. e.HasMorePages = True
    48. cn.Close()
    49. g.DrawString("Ausdruck vom :" & " " & aktuellesDatum, ft, Brushes.Black, 60, 750, text_links)
    50. Exit Sub
    51. End If
    52. Next
    54. g.DrawString("Ausdruck vom :" & " " & aktuellesDatum, ft, Brushes.Black, 60, 750, text_links)
    56. End Sub
    58. Private Sub PrintDocument1_EndPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.EndPrint
    59. cn.Close()
    60. Me.Close()
    61. End Sub

    geeeht auch - nur unwirtschaftlich, (und auch nicht so, wie das Drucken-Konzept eiglich designed ist im Framework).
    Für Jede Seite werden die gesamten Daten in eine neue DataTable geladen - von der dann ein bestimmter Ausschnitt gedruckt wird.
    Warum nicht lieber die Daten einmal laden, und pro Seite den geeigneten Ausschitt drucken (ohne jedesmal neu laden)?
    Etwa .BeginPrint zu verwenden ist keine Option?

Facebook
Telefonspende