ник: svetkin
использую такой код для ограничения высоты данных:
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Dim h As Single
Call DrawTableInDetailSection(Me.ОбластьДанных)
If Me.Page = 1 Then
RHeight = RHeight + funGetHeight(Me.Section(acDetail))
If RHeight > 11190.5 Then
Report.Section(acDetail).ForceNewPage = 1
Else
Report.Section(acDetail).ForceNewPage = 0
End If
End Sub
При предпросмотре все показывается так как мне надо, но стоит только нажать кнопку принт, как все данные с 1-ой страницы уходят на вторую. И 1-я страница остается пустая с заголовком группы.
Помогите.... плиз....