| |
|
|
| | использую такой код для ограничения высоты данных:
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-я страница остается пустая с заголовком группы.
Помогите.... плиз.... | |
| |
| |
| |
|
|
| | Может у Вас
RHeight > 11190.5 | |
| |
| |
| |
|
|
| | Нет, такого не может быть.
я вижу в предпросмотре что нарисовано все правельно, ни куда не выходя нажимаю кнопку принт, на листе получаю только рамку(рисуемую в событии Page), шапку от столбцов(что нарисована в PageHeader), и заголовок группы, остальное исчезло... | |
| |
| |
|
|
| |
|
|
| |
на вторую страницу съезжает... и дальше все нормально... | |
| |
| |
| |
|
|
| | я не знаток отчетов, но могу предположить.
Поскольку событие Print происходит и при предварительном просмотре и при печати, то он у вас происходит 2 раза.
Попробуйте сразу печатать, без предварительного просмотра, эффект остался? | |
| |
| |
| |
|
|
| | А как без предпросмотра печатать?? | |
| |
| |
| |
|
|
| | просто командой из VBA.
Docmd.openreport "myReport", А тут вот указывают - как открыть.......... | |
| |
| |
ку да же оно исчезает