| |
 15 Кб. |
|
| | Здравствуйте!
Возникла проблема следующего рода. В отчете есть поле, данные для которого берутся из таблицы. Если длина текста превышает ширину поля, то поле расширяется вниз.
Необходимо, чтобы каждая новая строка была подчеркнута (см. приложение). Как это реализовать? | |
| |
| |
| |
|
|
| | можно текст с подчёркиванием использовать. | |
| |
| |
| |
|
|
| | Пробелы надо вставлять, если с подчеркиванием шрифт будет
функцию писать надо | |
| |
| |
| |
|
|
| | Пробовал с пробелами и подчеркиванием, но оно все равно до конца не подчеркивает, то есть длинна везде переменная. 56 - это количество символов, которые можно поместить в поле, не расширяя его.
Private Sub ЗаголовокГруппы1_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Dim n As Byte
n = Len(Описание) Mod 56
If n <> 0 Then Описание = Описание & Space(56 - n)
End If
End Sub
|
| |
| |
| |
| |
|
|
| | вот и именно что длинна - переменная
например ширина буквы Ш и Н разные (например)
и таким простым способом - не пролезет
может вот это натолкнет вас на мысль
http://am.rusimport.ru/msaccess/f2.aspx?id=51146 | |
| |
| |
| |
|
|
| | Спасибо! Будем думать...) | |
| |
| |
| |
|
|
| | шрифт моноширный надо использовать.
типа CUORIER (КАЖЕТСЯ) | |
| |
| |
| |
|
|
| | Можно попробовать иначе.
1. Высоту строки для конкретного шрифта можно вычислить;
2. На событии Print раздела можно получить реальную высоту поля, и сколько в нем строк;
3. Методом Line можно разлинеить ваше поле в нужных местах. | |
| |
| |
