Access: высота отдельных полей в отчете

[uhm]

Делаю отчет в Access, визуально он должен выглядеть как таблица с границами, примерно так:

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

+----------------+---+
|Строка 1        |  3|
+----------------+---+
|Строка 2        |  5|
+----------------+---+


Оформлено это как поля с включенной границей. Проблема в том, что там, где у меня "Строка 1" и "Строка 2", могут быть достаточно длинные строки, которые не влезают в ширину ячейки. Я установил для обеих ячеек свойство "Расширение" в "Да", но результат получается вот такой:

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

+----------------+---+
|Строка 1        |  3|
+----------------+---+
|Длинная         |  5|
|Строка 2        +---+
+----------------+


вместо желаемого:

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

+----------------+---+
|Строка 1        |  3|
+----------------+---+
|Длинная         |  5|
|Строка 2        |   |
+----------------+---+


Можно ли что-то с этим сделать (подозреваю, что если можно, то VBA будет не при чем, но все же...)?

[alibek]

Попробуй границу убрать и заменить ее на линию.
Возможно, линия будет смещаться.

[uhm]

Немного неудобно, но вроде работает!


Спасибо!

[alibek]

Можешь еще попробовать у поля с "5" высоту сделать на один пиксел выше, чем у поля слева (вернее, чтобы его нижняя граница была на пиксел ниже нижней границы левого поля). Может сработает.

[uhm]

Мдя, поторопился В первом способе, появляются проблемы с вертикальными полосами по краям и между ячейками - они не растягиваются при изменении высоты строки.

Второй способ, увы, просто не работает.

[Andrey Fedorov]

Давно не делал, но там должно быть все просто - в каком-то событии перед печатью (что-то вроде BeforePrint) становится известна высота секции Detail - в этом событии кодом растягиваешь вертикалные линии по высоте секции...

[uhm]

Ок, попробую. Спасибо!

[dormouse]

хех. когда-то давно я столкнулся с этой проблемой, но в итоге сдался и стал просто жёстко задавать высоту полей или делать их обрамление "с тенью" (рисуется только нижняя граница). или рисовать одну горизонтальную линию, которая отодвигается расширяющимся полем вниз.

а сегодня сочинил:

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


Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim fld As String, defH As Integer
fld = "поле1" 'это имя самого длинного по содержанию поля
defH = 300 'стандартная высота поля в одну строчку
Me(fld).Height = defH * (IIf(Me.TextWidth(Me(fld)) \ _
    Me(fld).Width = 0, 1, Me.TextWidth(Me(fld)) / Me(fld).Width))
Me.поле2.Height = Me(fld).Height 'подгоняем под его размеры остальные поля
'и т.д.
Me.ОбластьДанных.Height = Me(fld).Height
End Sub


ругайте

а сам пока повспоминаю, где же мне это было нужно...