Hallo,
ich hatte ja bereits das Thema mit dem Darstellen meiner berechneten Werten auf einer Form. Mit der Label Lösung hat das gut geklappt. Jetzt möchte ich diese Daten auch zu Papier bringen. Das Programm ist in VB6 und soll nach vb.net konvertiert werden. Ich suche einen Ansatz wie ich jetzt zur Ausgabe komme. Das eigentliche Drucken ist in "Drucken mehrseitiger Dokumente" bestens erklärt. Ich suche aber einen Ansatz wie ich jetzt am besten vorgehe. Folgend sind ein paar Zeilen des original Codes welcher jetzt Zeile für Zeile den String erstellt und an den Drucker sendet.
Meine Überlegung ist jetzt Zeile für Zeile an eine TextBox zu senden, sprich alle Strings zu einer einzigen zusammenzufügen und diese dann zu drucken. Gibt es etwas sinnvolleres? Wir reden über ca. 3 Seiten.
ich hatte ja bereits das Thema mit dem Darstellen meiner berechneten Werten auf einer Form. Mit der Label Lösung hat das gut geklappt. Jetzt möchte ich diese Daten auch zu Papier bringen. Das Programm ist in VB6 und soll nach vb.net konvertiert werden. Ich suche einen Ansatz wie ich jetzt zur Ausgabe komme. Das eigentliche Drucken ist in "Drucken mehrseitiger Dokumente" bestens erklärt. Ich suche aber einen Ansatz wie ich jetzt am besten vorgehe. Folgend sind ein paar Zeilen des original Codes welcher jetzt Zeile für Zeile den String erstellt und an den Drucker sendet.
Meine Überlegung ist jetzt Zeile für Zeile an eine TextBox zu senden, sprich alle Strings zu einer einzigen zusammenzufügen und diese dann zu drucken. Gibt es etwas sinnvolleres? Wir reden über ca. 3 Seiten.
Visual Basic-Quellcode
- Sub DruckAusgabe()
- Printer.CurrentX = 0
- Printer.CurrentY = 0
- Printer.Line (0, 8220)-(500, 8220)
- Printer.CurrentX = 0
- Printer.CurrentY = 0
- 'Überschrift
- PIXEL = 0
- Ausgabe$ = Space(84)
- Mid$(Ausgabe$, 11, Len(txtKunde.Text)) = txtKunde.Text
- Mid$(Ausgabe$, 47, Len(txtKomNr.Text)) = txtKomNr.Text
- Mid$(Ausgabe$, 62, Len(Date)) = Date
- LAENGE = Len(txtBearbeiter.Text)
- POS = 84 - LAENGE + 1
- Mid$(Ausgabe$, POS, LAENGE) = txtBearbeiter.Text
- PIXEL = PIXEL + 200
- Printer.CurrentY = PIXEL
- Printer.Print Ausgabe$
- Ausgabe$ = Space(10)
- For J = 1 To 74
- Ausgabe$ = Ausgabe$ & "*"
- Next J
- PIXEL = PIXEL + 200
- Printer.CurrentY = PIXEL
- Printer.Print Ausgabe$
- 'Basis-Parameter
- Bedarf = 1700 + 400
- Ausgabe$ = Space(50)
- Mid$(Ausgabe$, 11, 17) = "BASIS-PARAMETER :"
- PIXEL = PIXEL + 300
- Printer.CurrentY = PIXEL
- Printer.FontBold = True
- Printer.Print Ausgabe$
- Printer.FontBold = False
- usw.....
