создаете шаблон отчетов. в нем прописывается пара строк, а остальное формирование уже идет в модуле класса
пример когда на основе одного шаблона формируются 4 совершенно различных отчета, с различной ориентацией (книжной, альбомной) и пр.
в вызывающем модуле прописываете значение глобальной переменной
например пусть: ActNedovlojeniyaTemp(2)=3
ActNedovlojeniyaTemp(1)-это кнтрлсорсе отчета- тоже прописываете в вызывающем модуле.
в отчете прописываете что-то типа:
1.
2.
3.
4.
5.
6.
7.
Private rpttoclacc As mcReportst0AnyCommon
Private Sub Report_Open(cancel As Integer)
Set rpttoclacc = New mcReportst0AnyCommon
Set rpttoclacc.ReportProtokol = Me
End Sub
а в затем в модуле класса:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Private WithEvents mcrptProtokol As Report
Private WithEvents mcrptSverka As Report
Private WithEvents mcrptPodp As Report
Private mcReportsSverkas As Qutas
Enum Qutas
Protokol
Sverka
Podpiska
SvodReport
End Enum
Private Sub Class_Initialize()
vids
End Sub
Private Sub vids()
Select Case ActNedovlojeniyaTemp(2)
Case 1
mcReportsSverkas = Protokol
reportsiorce = vbNullString
Case 2
mcReportsSverkas = Sverka
reportsiorce = ActNedovlojeniyaTemp(1)
Case 3
mcReportsSverkas = Podpiska
reportsiorce = ActNedovlojeniyaTemp(1)
Case 4
mcReportsSverkas = SvodReport
reportsiorce = ActNedovlojeniyaTemp(1)
End Select
End Sub
Public Property Set ReportProtokol(ByVal rpt3 As Report)
Select Case mcReportsSverkas
Case Protokol
Set mcrptProtokol = rpt3
PrisvProtokol
Case Sverka
Set mcrptSverka = rpt3
PrisvSverka
Case Podpiska
Set mcrptPodp = rpt3
PrisvPodpiska
changecolors = True
Case SvodReport
Set mcrptSvod = rpt3
PrisvSVOD
End Select
End Property
в таком случае все можно менять(в отличие от вызова отчета как модуль класса), НО отчет можно вызвать только один, если отчет вызывать как модуль класса, то вызывать очевидно их можно несколько- однако Report_Open в этом случае недоступно, а основная масса структурных изменений может быть сделана только в этом событии.
в этих всех PrisvProtokol и пр.
происходит форматирование частей отчета, присваивание событий.
например:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Private WithEvents PtDetail As [_SectionInReport]
Private WithEvents PtHeader As [_PageHdrFtrInReport]
Private WithEvents PtFooter As [_SectionInReport]
Private WithEvents PdDetail As [_SectionInReport]
Private WithEvents PdHeader As [_SectionInReport]
Private Sub PrisvProtokol()
mcrptProtokol.Caption = "Протокол ревизии"
mcrptProtokol.OnLoad = DoProg
Set PtDetail = mcrptProtokol.ОбластьДанных
PtDetail.OnPrint = DoProg
Set PtHeader = mcrptProtokol.Section(acPageHeader)
PtHeader.OnFormat = DoProg
Set PtFooter = mcrptProtokol.ПримечаниеОтчета
PtFooter.OnFormat = DoProg
PtFooter.OnPrint = DoProg
End Sub
Private Sub PrisvPodpiska()
mcrptPodpLoad' прописывается то, что обычно прописывается в Report_open
Set PdHeader = mcrptPodp.Section(acHeader)
PdHeader.OnFormat = DoProg
Set PdDetail = mcrptPodp.ОбластьДанных
PdDetail.OnFormat = DoProg
PdDetail.OnPrint = DoProg
End Sub
также implements никто не отменял-но она плодит просто тучу модулей класса.
все это можно написать и в модуле отчета.
естественно это не все что нужно прописывать, но принцип я думаю понятен.
