Option Compare Database Option Explicit Dim Prazno As Integer Dim Brojac As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If PrintCount = 1 Then Brojac = Brojac + 1 End If If Prazno Then Me.PrintSection = False Me.NextRecord = False Prazno = False Else Me.PrintSection = True Me.NextRecord = True Prazno = (Brojac Mod 3 = 0) ' koliko redova End If End Sub Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer) Brojac = 0 'Reset brojaca Prazno = False End Sub