ник: Чайник2007
Чтобы не было смещения на других листах ,все это поместил в нижний колонтитул отчёта и все заработало как надо.
If (КОЛИЧЕСТВО_ЧЕЛОВЕК > 0) And (КОЛИЧЕСТВО_ЧЕЛОВЕК < 7) Then
If (Me.Page Mod 1) = 0 Then
Me![Число].Visible = True
Me![Сумма].Visible = True
Else
Me![Число].Visible = False
Me![Сумма].Visible = False
End If