Hallo zusammen, bin neu hier im Forum und hoffe ihr könnt mir ein bischen helfen.
Als erstes hoffe ich das ich hier im richtigen Teil des Forums poste.....
Wenn nicht , nicht gleich schimpfen
So und nun zu meinem Problem, ich lese mit einer Schleife meine Datenbank aus per SQL, und drucke diese Datensätze aus. Das funktioniert auch supi bei wenigen Sätzen (die auf eine Seite passen )
Aber er gibt mir einfach keine weitere Seite aus, sondern überschreibt die ersten wieder auf der ersten Seite.
Gedruckt wird im Querformat ( Landscape=True )
x_achse ist die Position von oberen Rand, und wird bei jedem Durchgang dementsprechen hoch gesetzt.
Und mit der Abfrage versuche ich ihm zu sagen das die Seite voll ist und er die nächste benutzen soll, er geht auch in die Abfrage rein aber erzeugt leider keine neue Seite.
Ich hoffe ich konnte mich einigermaßen klar ausdrücken.
Ich hoffe ihr könnt mir auf die Sprünge helfen....habe schon so einiges ausprobiert und mir erlesen aber irgendwie fehlt mir der zündende Funke
Als erstes hoffe ich das ich hier im richtigen Teil des Forums poste.....
Wenn nicht , nicht gleich schimpfen
So und nun zu meinem Problem, ich lese mit einer Schleife meine Datenbank aus per SQL, und drucke diese Datensätze aus. Das funktioniert auch supi bei wenigen Sätzen (die auf eine Seite passen )
Aber er gibt mir einfach keine weitere Seite aus, sondern überschreibt die ersten wieder auf der ersten Seite.
Gedruckt wird im Querformat ( Landscape=True )
x_achse ist die Position von oberen Rand, und wird bei jedem Durchgang dementsprechen hoch gesetzt.
Und mit der Abfrage versuche ich ihm zu sagen das die Seite voll ist und er die nächste benutzen soll, er geht auch in die Abfrage rein aber erzeugt leider keine neue Seite.
Ich hoffe ich konnte mich einigermaßen klar ausdrücken.
Ich hoffe ihr könnt mir auf die Sprünge helfen....habe schon so einiges ausprobiert und mir erlesen aber irgendwie fehlt mir der zündende Funke
VB.NET-Quellcode
- While reader.Read
- e.Graphics.DrawString(reader("vorname"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse, x_achse, text_links)
- e.Graphics.DrawString(reader("nachname"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 100, x_achse, text_links)
- e.Graphics.DrawString(reader("strasse"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 230, x_achse, text_links)
- e.Graphics.DrawString(reader("plz"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 410, x_achse, text_links)
- e.Graphics.DrawString(reader("wohnort"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 500, x_achse, text_links)
- e.Graphics.DrawString(reader("telefon"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 650, x_achse, text_links)
- e.Graphics.DrawString(reader("mobil"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 750, x_achse, text_links)
- e.Graphics.DrawString(reader("email"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 850, x_achse, text_links)
- e.Graphics.DrawString(reader("geburtstag"), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 1000, x_achse, text_links)
- x_achse = x_achse + 30
- If x_achse >= 680 Then
- e.HasMorePages = True
- x_achse = 200
- End If
- End While
- e.Graphics.DrawString("Ausdruck vom :" & " " & aktuellesDatum, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, 60, 750, text_links)
- e.HasMorePages = False
- reader.Close()
- con.Close()