Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text ausdrucken
Autor: Silver
Datum: 17.03.04 11:20
Hi Postmann, Hab zwar selbst noch nie was ausgedruckt, könnte mir die Lösung aber so vorstellen: Drucke den Text doch einfach Zeichen für Zeichen und jedesmal wenn du ein VBCRLF ( (chr(13) & chr(10) ) findes Positionierst du die X-Pos neu. ALso, so meine ich das: Printer.CurrentX = mmToTwips(25) for t = 1 to len(txt1.text) Printer.Print mid$(txt1.Text,t,1); if mid$(txt1.text,t,1) = chr(10) then Printer.CurrentX = mmToTwips(25) next t Wenn du im Ausdrtuck immer eine Zeile leer hast dann versuchs so: for t = 1 to len(txt1.text) if mid$(txt1.text,t,1) = chr(10) then Printer.CurrentX = mmToTwips(25) else Printer.Print mid$(txt1.Text,t,1); end if next t Mit Sicherheit ist das nicht die eleganteste Lösung aber eigentlich müsste es doch funktionieren??! Gruß Silver

Text ausdrucken	763	Postmann	17.03.04 10:20
Re: Text ausdrucken	527	Silver	17.03.04 11:20
Re: Text ausdrucken	527	Wolfgang	17.03.04 11:21
Re: Text ausdrucken	544	Postmann	17.03.04 16:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen