ник: Анатолий (Киев)
Судя по приведенному коду ситуация длжна быть другой - каждая запись печатается трижды, и в каждой третей записи поле П33 - показывается.
То, что вы описали может получиться, если не срабатывает условие
If Me.Поле56 Mod stroka <> 0 Then
Для 4-й строки я бы сделал так:
Dim fl As Boolean
fl = (Me.Поле56=4)
Me.ForceNewPage = Not fl
Me!П33.Visible = fl
Me!остальные.Visible = Not fl