Проблема с печатью длинных строк.

[werbersoft]

Пытаюсь печатать текст через Printer.Print, но дело в том, что иногда строка, которую я печатаю бывает слишком длинной и выходит за границы листа . Что делать?

[SSecurity]

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

printer.TextWidth

это даст тебе возможность узнать сколько там будет длина строки а дальше подбирать размер так чтоб нормально было остаток спускать на след. строку

Если я не ошибаюсь ... вставишь там VbCrLf в место переноса:)

[werbersoft]

А ещё я слышал есть специальные ActiveX-компоненты для печати, которые сами контролируют печать, чтобы ничего никуда не вылезало. Кто нибудь с такими сталкивался?

[SSecurity]

ну ты сам такой компонент создать могешь на базе тех правил которые сам хочешь:)
Просто интерсно как поведет себя компонент, если ты вдруг вопреки всему захочешь распечатать длинную строку ))

[werbersoft]

Короче я понял. Нужно следующее (если на словах):

1. Выбираем шрифт, имеющий одинаковую ширину у всех символов (чтобы корректно считать длину строки).
2. Получаем строку и проверяем, больше ли число её символов длины листа (для каждого шрифта определённого размера).
3. Если она больше ширины листа, режем её на части и печатаем блоками.

[SSecurity]

В целом мысль правильная .... "Курьер" обычно подходит )) но делить можно и по словам, чтоб читалось нормально ....
а можно делать так ...но это немного дольше

Если все разбить на слова и добавляя очередное слово формировать строки

Единственное если ты используешь vbCrLf у тебя интервал между строк мягко говоря будет задан принтером на основе размера шрифта, а если ты будешь текст бить на строки, тогда интервал можно задавать свой (соответсвуюшим смещением позиции Printer.CurrentY если мне память не изменяет)

[werbersoft]

Ок. В ближайшее время попробую чё нибудь наколдовать.

[iGrok]

Единственное если ты используешь vbCrLf у тебя интервал между строк мягко говоря будет задан принтером на основе размера шрифта, а если ты будешь текст бить на строки, тогда интервал можно задавать свой (соответсвуюшим смещением позиции Printer.CurrentY если мне память не изменяет)

Эмм.. Я, может, чего и путаю.. Но мне думается принтер не воспримет vbCrLf.

1. Выбираем шрифт, имеющий одинаковую ширину у всех символов (чтобы корректно считать длину строки).

Неа. Ты не всё понял. )
Есть Printer.TextWidth(text), который тебе возвращает длину строки text с учётом шрифтов, размером букв, и т.п. Поэтому моноширинный шрифт в общем-то не нужен. Как и число символов. )
Если увидел, что TextWidth больше Printer.Width - смотришь, насколько он больше, и ищешь ближайший пробел(или другой символ, подходящий для вставки переноса. К примеру, тире). Потом режешь строку по это место и печатаешь. С остатком строки выполняешь те же действия.

[SSecurity]

Единственное если ты используешь vbCrLf у тебя интервал между строк мягко говоря будет задан принтером на основе размера шрифта, а если ты будешь текст бить на строки, тогда интервал можно задавать свой (соответсвуюшим смещением позиции Printer.CurrentY если мне память не изменяет)

Эмм.. Я, может, чего и путаю.. Но мне думается принтер не воспримет vbCrLf.

А ты попробуй:) У меня понимает, может у меня особенные принтер?:)

[EUGY]

Наверное незачем изобретать велосипед.
Ведь есть GetTextExtentExPoint, SetTextJustification, PolyTextOut.
Другое дело что начинающий с ними может не справиться. Только чья эта проблема:)

[Andrey Fedorov]

А ещё я слышал есть специальные ActiveX-компоненты для печати, которые сами контролируют печать, чтобы ничего никуда не вылезало. Кто нибудь с такими сталкивался?

Ты правильно слышал. Скорей всего и надо копать в этом направлении.
У VB6 есть примитивный по возможностям DataReport, а если хочешь вкусностей то лучше использовать ActiveReports от DataDynamics...