Private Sub Область данных_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If CLng(Me.Номер стыка) = CLng(CurrentNumber) Then
Cancel = 1
ElseIf CLng(Me.Номер стыка) > CLng(CurrentNumber) Then
CurrentNumber = Me.Номер стыка
Cancel = 0
End If
End Sub
после этого отчёт формируется правильно(на мониторе), а на печать опять выводит повторы записей, а последнюю запись вообще удаляет!!
