Отчеты MSAccess, общие рекомендации

Источник: msdatabase

Клиентский фильтр отчета

Следует обратить внимание, что клиентский фильтр отчета влияет на число отображаемых записей, но не влияет на значения Итоговых полей в примечаниях разделов, полученных с помощью агрегатных функций: =Sum(), =Count() и т.д.
( в ADP - проектах).

Рекомедую вынести фильтр в условие источника данных отчета

Выравнивание контролов

Для выравнивания контролов удобно :
Правка -> Выделить Все (Ctrl + A)
Формат -> Размер -> По узлам сетки

Выбор всех контролов CTRL + A
Исключить / включить контрол из числа выбранных Удерживая SHIFT кликнуть по контролу

Форматирование легким тонированием каждой третьей строки


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

Private SubОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Dim ppp
ppp = Me.ПолеНумератора '(Control Source:=1 и включенно суммирование для всего)

If ppp Mod 3 <> 0 Then
Me.Section(0).BackColor = RGB(255, 255, 255)
Else
Me.Section(0).BackColor = RGB(240, 240, 240)
end if
End Sub

Необходимо предварительно задать для контролов области данных тип фона - прозрачный


 

Вывод данных в виде таблички


если используется расширение или сжатие полей

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Call DrawDetail(Me)
End Sub

В общем модуле:

SubDrawDetail(CR AsReport)
Dim i As Long
Dim maxh As Long
Static bColor

maxh = 0
CR.DrawMode = 1
CR.DrawWidth = 2
CR.ScaleMode = 1
For i = 0 ToCR.Controls.Count - 1
If CR(i).Section = acDetail Then
 If CR(i).Height > maxh Then maxh = CR(i).Height
End If
Next i

For i = 0 To CR.Controls.Count - 1
If CR(i).Section = acDetail And CR.Visible Then
 CR.Line (CR(i).Left, CR(i).Top)-Step(CR(i).Width, maxh), , B
End If
Next i
End Sub

Необходимо предварительно задать для контролов области данных тип границы - отсутствует.

Акцент на цифрах

Использование шрифта Lucida Fax позволит акцентировать внимание на цифрах в отчете. В этом шрифте цифры крупнее букв.

 


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8378