Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Форматирование отчета  [new]
Ramca
Member

Откуда:
Сообщений: 65
Если в отчете на одном из полей стоит свойство: Расширение = Да, то как сделать так, чтобы все остальные поля в этой строке были такой же высоты?
16 авг 05, 18:41    [1792029]     Ответить | Цитировать Сообщить модератору
 Re: Форматирование отчета  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
Поис не работает, печально... Повторим в очередной раз
Одно из решений года два назад здесь в эхе было. Прошу прощения у автора,
кто это предложил - у меня не сохранилось. А решение - вот оно. Эту
процедуру надо вставить в модуль отчета. Заметьте - это по событию Print, а
не Format. И не высота полей меняется, а рисуются рамки. У самих полей рамки
должны отсутствовать.

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Control, lngHeight As Long, lng As Long
' Опpеделим максимальнyю высотy элемента в секции Detail
For Each ctl In Me.Section(0).Controls
lng = ctl.Height: If lng > lngHeight Then lngHeight = lng
Next ctl
' Hаpисyем pамки элементов секции Detail одинаковой высоты
For Each ctl In Me.Section(0).Controls
If ctl.Visible = True Then
Me.Line (ctl.Left, ctl.Top)-Step(ctl.Width, lngHeight), , B
End If
Next ctl
End Sub
17 авг 05, 00:32    [1792606]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить