Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Отчёт

Автор: kapbepucm 2.8.2007, 10:02

Как лучше всего сделать? Отчёт состоит из большого количества страниц (обычная таблица). Надо сделать неодинаковый пустой заголовок каждой странице (просто отступ от верхнего края листа, наверно, высота PageHeader). Но если номер страницы нечётный он должен быть n см, а если чётный m см.

Автор: belousov 2.8.2007, 10:35

kapbepucm, ну там через BAsic можно этого добиться в полне, пишешь условие так и так

Автор: Akina 2.8.2007, 13:39

Код


Private Sub Report_Page()
    If (Me.Page MOD 2) Then
        '....
    Else
        '....
    End If
End Sub

Автор: bopoha 2.8.2007, 21:36

Я бы использовал событие форматирования колонтитула и изменял бы его высоту:

Код


Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
...
    Me.Section(acPageHeader).Height = ...
...
End Sub

Автор: kapbepucm 3.8.2007, 08:25

Ок, так и сделал:

Код

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
 If (Me.Page Mod 2) Then Me.Section(acPageHeader).Height = M Else Me.Section(acPageHeader).Height = N
End Sub