Private rpttoclacc As mcReportst0AnyCommon
Private Sub Report_Open(cancel As Integer)

    Set rpttoclacc = New mcReportst0AnyCommon
    Set rpttoclacc.ReportProtokol = Me

End Sub

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

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