Seitenanzahl Drucken

  • VB.NET

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

    Seitenanzahl Drucken

    Vielleicht kann mir einer weiter helfen :)

    Der User muss eine Beschriftung Drucken für Paletten (2 Zettel, vorne und hinten)
    wenn der User also angibt, er hat 4 Paletten, müssen 8 Zettel gedruckt werden.
    Das ist ja alles ganz klar so weit.
    Mein Problem besteht darin, das auf den Zettel die Anzahl stehen muss wie viel Paletten es sind.

    Als Beispiel mit 4 Paletten:
    Palette 1 = Zettel = 1/4 (2 x Drucken)
    Palette 2 = Zettel = 2/4 (2 x Drucken)
    Palette 3 = Zettel = 3/4 (2 x Drucken)
    Palette 4 = Zettel = 4/4 (2 x Drucken)

    Vielen Dank

    Würde vor dem Druck eine Sub erstellen mit einer Schleife.

    Dort die Palette 1 bis 4 durchlaufen und an das Printobjekt übergeben.

    VB.NET-Quellcode

    1. Private Anzahl As Integer
    2. Private Palette As Integer
    3. Private Gesamt As Integer
    5. Public Sub Druckvorbereitung(ByVal Paletten As Integer, ByVal Druckanzahl As Integer)
    7. Anzahl = Paletten
    9. Gesamt = Druckanzahl
    11. For DAnz As Integer = 1 To Druckanzahl
    13. For Palette = 1 To Anzahl
    15. 　
    17. ' Print
    19. ' Paletten Nr. und Anzahl der Paletten sind dann im Printobjekt verfügbar
    21. Next Palette
    23. Next DAnz
    25. End Sub

    Gruß Markus

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

    @Pixxxas Mach das ganze aus dem PrintPreView-Dialog, da wird alles gedruckt und Du hast die korrekte Zahl.
    Sieh Dir die Events im PrintDocument 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!

    Vorschlag von Rod ist besser.
    Ich drucke alles via Excel, allein wegen der Formatierung.

    Wo wir das Thema eigentlich haben.
    Wäre schön mich von Excel zu lösen.
    Finde leider keinen Ersatz für den guten alten LPrint ("######.##")
    Gruß Markus

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