Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer) If Reports![ИмяВашегоОтчета]![ПолеНужногоКоличества] > Reports![ИмяВашегоОтчета].PrintCount Then Reports![ИмяВашегоОтчета].NextRecord = False End If End Sub