Клиентский фильтр отчета
Следует обратить внимание, что клиентский фильтр отчета влияет на число отображаемых записей, но не влияет на значения Итоговых полей в примечаниях разделов, полученных с помощью агрегатных функций: =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 позволит акцентировать внимание на цифрах в отчете. В этом шрифте цифры крупнее букв.