Stapeldruck, auch mit mehreren Seiten

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Stapeldruck, auch mit mehreren Seiten

    Hallo,

    bin gerade am überlegen wie ich folgendes umsetzen kann.

    In der Nacht wird eine Datentabelle gefüllt, in der die aktuellen offenen Posten (unbezahlte Rechnungen) stehen.
    Am Morgen soll dann für diese Datensätze eine Mahnung gedruckt werden.

    Mein Problem ist nun gerade das umsetzen des Ausdrucks:

    Ich hab mehrere Kunden (je Kunde eine Mahnung) und evtl. je Kunde auch mehrere Seiten.

    Mit e.HasMorePages kann ich zwar das steuern, dass mehrere Seiten ausgedruckt werden, aber e.HasMorePages ist ja in diesem Fall dafür da, dass wenn je Kunde mehrere Seiten gedruckt werden sollen.

    Wie bringe ich das PrintDocument1.Print() Ereignis dazu, sich für jeden Datensatz (je Kunde) auszulösen.

    Ein Versuch war es mal so:

    VB.NET-Quellcode

    1. If PrintPreviewDialog1.ShowDialog() = DialogResult.OK Then
    2. For i As Integer = 0 To Page
    3. PrintDocument1.Print()
    4. Next
    5. End If
    6. ...
    7. Private _DS As Integer = -1
    9. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    11. _DS += 1
    12. ...
    13. Dim _m As OrgafirmDataSet.mandantRow
    14. ' Firma1
    15. _m = OrgafirmDataSet.mandant.FindBykun_id( _
    16. Me.OrgafirmDataSet.DT_DruckenMahnungen.Rows(_DS).Item("op_mid"))
    17. g.DrawString(_m.kun_firma1, FA10n, Brushes.Black, RL, AnfangsZeile)
    18. AnfangsZeile = AnfangsZeile + Zeilenhoehe


    Ich weis das ich da n Denkfehler drinnen habe, aber irgendwie komme ich da gerade nicht weiter ...

    Eine Mahnung wird erstellt, aber immer nur 1 Seite - 1 Kunde, nämlich der erste Datensatz nur.
    Keine weiteren Seiten werden erstellt.

    michl75 schrieb:

    Wie bringe ich das PrintDocument1.Print() Ereignis dazu, sich für jeden Datensatz (je Kunde) auszulösen.
    So:

    VB.NET-Quellcode

    1. Private myName As String
    2. Private aktPage As Integer
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. Dim liste() = {"Müller", "Meier", "Lehmann"}
    5. For Each aktName In liste
    6. myName = aktName
    7. aktPage = 1
    8. Me.PrintDocument1.DocumentName = aktName & ".pdf"
    9. Me.PrintDocument1.Print()
    10. Next
    11. End Sub
    13. Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    14. If aktPage = 1 Then
    15. e.Graphics.DrawString(Me.myName, New Font("Arial", 20), Brushes.Black, New Point(30, 30))
    16. e.HasMorePages = True
    17. Else
    18. e.Graphics.DrawString("hat noch nicht bezahlt", New Font("Arial", 20), Brushes.Black, New Point(30, 30))
    19. e.HasMorePages = False
    20. End If
    21. aktPage += 1
    22. 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!

    Habe dazu auch eine Frage: Mein Code löst keinen Seitenvorschub aus:

    VB.NET-Quellcode

    1. Private Sub PrintDocument_Ausdruck_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument_Ausdruck.PrintPage
    2. e.Graphics.PageUnit = GraphicsUnit.Millimeter
    4. ' Test für Zahlendruck: rechtsbündig
    5. ' 44 Zeilen sollen pro Seite gedruckt werden
    8. Dim font As New Font("Courier", 14)
    9. Dim sf As New StringFormat() With {.Alignment = StringAlignment.Far}
    11. Dim Zeilenschritt As Integer = 10
    12. Dim Rpos As Integer = 150
    13. Dim Wert As Double = 10
    14. Dim Zaehler As Integer = 0
    15. Dim morePage As Boolean = False
    17. For i As Integer = 0 To 120
    19. Zeilenschritt += 10
    20. Zaehler += 1
    22. If Zaehler = 43 Then
    23. morePage = True
    24. Zaehler = 0
    25. Else
    26. morePage = False
    27. End If
    30. Wert = (Wert * 1.5454)
    32. e.Graphics.DrawString(Wert.ToString("N2"), font, Brushes.Black, Rpos, Zeilenschritt, sf)
    33. e.HasMorePages = morePage
    35. Next
    37. End Sub
    Gruß Markus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Westerwälder“ ()

    Westerwälder schrieb:

    VB.NET-Quellcode

    1. If Zaehler = 43 Then
    2. morePage = True
    3. Zaehler = 0
    4. Else
    5. morePage = False
    6. End If
    Tausch da mal True und False
    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!

    Dann setz da einen Haltepunkt rein und überzeuge Dich, dass Dein Code das macht, was er soll.
    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!

    Irgendwas läuft hier daneben:
    Mit diesem Code

    VB.NET-Quellcode

    1. Private Sub PrintDocument_Ausdruck_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument_Ausdruck.PrintPage
    2. e.Graphics.PageUnit = GraphicsUnit.Millimeter
    4. ' Test für Zahlendruck: rechtsbündig
    6. Dim font As New Font("Courier", 10)
    7. Dim sf As New StringFormat() With {.Alignment = StringAlignment.Far}
    9. Dim Zeilenschritt As Integer = 10
    10. Dim Rpos As Integer = 150
    11. Dim Wert As Double = 10
    12. Dim Zaehler As Integer = 0
    13. Dim morePage As Boolean = False
    15. For i As Integer = 0 To 50
    17. Zeilenschritt += 10
    18. Zaehler += 1
    20. If Zaehler = 23 Then
    21. Zaehler = 0
    22. morePage = True
    23. Else
    24. morePage = False
    25. End If
    27. Wert = (Wert * 1.5454)
    29. e.Graphics.DrawString(i.ToString, font, Brushes.Black, 5, Zeilenschritt)
    30. e.Graphics.DrawString(e.HasMorePages.ToString, font, Brushes.Black, 25, Zeilenschritt)
    31. e.Graphics.DrawString(Zaehler.ToString, font, Brushes.Black, 65, Zeilenschritt)
    32. e.Graphics.DrawString(Wert.ToString("N2"), font, Brushes.Black, Rpos, Zeilenschritt, sf)
    33. e.HasMorePages = morePage
    35. Next
    37. End Sub


    erhalte ich folgendes Ergebnis:
    Bilder

    • Ausgabe.jpg

      115,78 kB, 1.600×900, 87 mal angesehen
    Gruß Markus

    @Westerwälder:: Ich glaube, Du hast die Philosophie noch nicht verstanden.
    Pro Aufruf von PrintPage wird genau eine Seite gedruckt. So musst Du Deinen Code einrichten.
    Wenn das Blatt voll ist, musst Du Dir die Dokument-Position merken und e.HasMorePages auf True setzen und beim nächsten Aufruf an der gemerkten Position weitermachen.
    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!

    So, habe mir nun was gebastelt, funktioniert auch, aber mache ich das nun vom Prinzip her auch richtig?

    VB.NET-Quellcode

    1. Private Sub Druckdokument_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles Druckdokument.PrintPage
    3. Me.DruckPos_Zeile = (Me.DruckPos_ErsteZeile - Me.DruckPos_Zeilenschritt)
    4. Me.Seitenzahl += 1
    6. For I As Integer = 0 To Me.Auftrag.Count - 1
    8. With Me.Auftrag(I)
    9. Me.DruckPos_Zeile = Me.Zeilenschaltung
    10. e.Graphics.DrawString(.DText, Me.SchriftArt, .DSchriftFarbe, .DPosLinks, Me.DruckPos_Zeile, Me.FormatZeile)
    12. If I = Me.Auftrag.Count - 1 Then ' Vermeiden von Leerblätter
    13. e.HasMorePages = False
    14. Exit Sub
    15. End If
    17. If Me.Auftrag(I).DFolgeSeite = True Then
    18. Me.Auftrag.RemoveAt(I)
    19. I -= 1
    20. e.HasMorePages = True
    21. Exit Sub
    22. Else
    23. Me.Auftrag.RemoveAt(I)
    24. I -= 1
    25. e.HasMorePages = False
    26. End If
    27. End With
    29. Next
    31. End Sub
    Gruß Markus

Facebook
Telefonspende