Нумерация страниц в отчете
Michael Hopgarden
Дата: 27.08.2001 08:54:40
А97. Возможно ли организовать что-то типа [PAGE] from [PAGES] для каждой группы отчета. Т.е. при печати каждой группы с новой страницы нижний колонтитул должен содержать номер листа в группе и количество листов в группе.
V. Motchulsky
Дата: 27.08.2001 19:10:47
Используя события при форматировании отчета наверняка можно, но может проще напечатать несколько раз отчет с разным RecordSource?
V. Motchulsky
Дата: 27.08.2001 19:39:49
Ну да, "если ничего не получается - читай внимательно инструкцию" - в HELPе подробно расписано: Сброс счетчика номеров страниц для каждой группы в отчете.
Michael+Hopgarden
Дата: 28.08.2001 12:06:02
Спасибо, хотя акцент делался на определение количества страниц в группе
Michael+Hopgarden
Дата: 28.08.2001 14:04:41
Может быть как-то так
Option Compare Database
Option Explicit
Public iGrNum As Integer 'порядковый номер группы
'Public aiGrPages(100) As Integer 'поместить во внешний модуль
Private Sub Report_Open(Cancel As Integer)
Dim i As Integer
For i = 0 To 99
aiGrPages(i) = 0
Next i
iGrNum = 0
End Sub
Private Sub Report_Page()
aiGrPages(iGrNum) = aiGrPages(iGrNum) + 1
End Sub
Private Sub ЗаголовокГруппы0_Format(Cancel As Integer, FormatCount As Integer)
iGrNum = iGrNum + 1
[Page] = 1 'сброс нумерации страниц. Все решение для первой части.
End Sub
Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Me!fld_grnum = iGrNum 'поле в нижнем колонтитуле. Обратите внимание на значения при просмотре и при печати
End Sub
Private Sub НижнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
Me!fld_grpages = aiGrPages(iGrNum _
- КОЭФФИЦИЕНТ_ЗАВИСЯЩИЙ_ОТ_ЧИСЛА_СРАБАТЫВАНИЯ_СОБЫТИЯ_ЗаголовокГруппы0_Format_ДЛЯ_ОТДЕЛЬНОЙ_ГРУППЫ _
* ЧИСЛО_ГРУПП)
End Sub