ник: Чайник2007
1. Когда 6 человек на первом листе нужно чтобы печатались и данные и сумма и число.Если более 6 то печатается на втором нормально и данные и сумма.Что нужно исправить?
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
' На каждой странице выводится по 6 записей
NewPageBeforeRecord Me, (Me.CurrentRecord + True) And (Me.CurrentRecord Mod 6) = 1
Me![Сумма] = SUMMA_PROP(КОЛИЧЕСТВО_ЧЕЛОВЕК)
Me![Число] = КОЛИЧЕСТВО_ЧЕЛОВЕК
End Sub
Public Sub NewPageBeforeRecord(Rpt As Report, GoNewPage As Boolean)
' Если GoNewPage = True текущая запись переносится
' на следующий лист
Static Top_or_record As Long
If GoNewPage = True Then
If Rpt.CurrentRecord <> -Top_or_record Then
' новая запись
If Rpt.TOP <> Top_or_record Then
' общее кол-во пустых строк должно быть больше
' чем помещается на странице
Top_or_record = Rpt.TOP
Rpt.NextRecord = False
Rpt.PrintSection = False
Else
' текущая запись
Top_or_record = -Rpt.CurrentRecord
End If
End If
Else
Top_or_record = 0
End If
' MsgBox "Top_or_record=" & Top_or_record '***** ОТЛАДКА ******
End Sub