Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

textformatierung im druck-problem
Autor: Zwackel
Datum: 05.04.06 19:47
Hallo, ich möchte text, der sich in einer Textbox befindet über den Standarddrucker ausgeben. Problem dabei ist,das der text an einer bestimmten Position (currentx) gedruckt werden soll und er für eine Zeile zu lang ist. Also durchlaufe ich eine Schleife in welcher nach max. 70 Zeichen ein Umbruch erfolgt,das klappt auch, aber der Text wird bei currentx(0) also gaaanz links fortgesetzt. Hier mal meine Schleife: Printer.CurrentY = (11300) Printer.CurrentX = (3000) ZL = 70 ' Zeilenlänge Text = Text9.Text For N = 1 To Len(Text) Step ZL TextTeil = Mid(Text, N, ZL) Do While Not Right(TextTeil, 1) = " " Zähler = Zähler + 1 TextTeil = Mid(Text, N, ZL + Zähler) If ZL + Zähler >= Len(Text) Then Exit Do Loop N = N + Zähler Zähler = 0 NeuerText = NeuerText & TextTeil & vbCrLf Next Text9.Text = NeuerText Printer.Print Text9.Text Printer.EndDoc hat da jemand was für mich?

textformatierung im druck-problem	656	Zwackel	05.04.06 19:47
Re: textformatierung im druck-problem	432	Dieter	05.04.06 21:41
Re: textformatierung im druck-problem	381	Zwackel	05.04.06 22:40
Re: textformatierung im druck-problem	425	Dieter	06.04.06 06:49
Re: textformatierung im druck-problem	403	Zwackel	06.04.06 15:39

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