Печать в VB. Текст в ТекстБоксе. Как? Хелп плиз.

[Alex Mals]

Мужики, вопрос такой. В ТекстБоксе есть текст. Он (текстбокс, по щучьему велению, по моему хотению) wordwrap-ит его при выводе на экран, а на принтер льет только начало строк, сколько влезет в ширину, остальное за кадром. Блин, нехорошо. Где пошарить? Мож кто в курсах? Благодарю заранее.

[Ramzes]

свойство текстбокса
Multiline = true
стоит

[Alex Mals]

Йес, Рамзес,
свойство = Тру,
как же я wordwrap-ил бы без этого?
Что дальше?
Как заставить Printer знать об этом?

[A.A.Z.]

Может тогда насильно принтеру vbCrLf передавать?

[Ramzes]

printer.print text1.text

[Alex Mals]

Рамзес, спасибо за мнение,
но это не вопрос, так и делаю.
ААЗ, мне самому придется считать длину строк?
Тогда я не против, если другого выхода нет.
В любом случае, мужики, спасибо за участие.

[A.A.Z.]

Да, думаю, что так

Код: Выделить всё

Dim Arr$(), I&, S$, Flag As Boolean
Arr = Split(Text1.Text, " ")
For I = 0 To UBound(Arr)
If Printer.TextWidth(S & Arr(I)) > Printer.Width Then Printer.Print S: S = "": Flag = True Else S = S & Arr(I)
Next
If Not Flag Then Printer.Print S
Printer.EndDoc

[Alex Mals]

ААЗ, не в обиду, ручной способ сам найду
(хотя и начну с твоего, без базара),
но ведь множество ребят маялись сим вопросом,
мне казалось (по дурости?), что есть Решение?

[Alex Mals]

Ладно, все парни,
жена пришла,
у нас в НСКе уже пора ...,
До Завтра

[GSerg]

Есть мнение перейти на RichTextBox, после чего заюзать его возможности по рендерингу.
http://bbs.vbstreets.ru/viewtopic.php?p=38491#38491

Ещё есть вариант поюзать функцию DrawText с явным указанием DT_WORDBREAK и ограничивающего прямоугольника.

[Alex Mals]

Недаром говорят - утро вечера мудренее.

1. EM_GETLINE - получаем одну строку
2. печатаем ее
3. goto 1

Спасибо всем за помощь.
Удачи и вам в ваших делах.