Option Explicit
Private WithEvents rpt As LclsReport
Private cancelClicked As Boolean

Private Sub Form_Load()
    Me.Timer.Interval =  1000 
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Me.Visible Then
        Me.Hide
        Cancel = True
    End If
End Sub

Private Sub rpt_stepInfo(cam As Long, tpe As String, step As Long)
Dim s As String
    Select Case cam
        Case  0 
            s = "сводный раздел"
        Case  1 
            If UCase(tpe) = "F" Then
                s = "камера 1 фронтальные стелажи"
            Else
                s = "камера 1 набивные стелажи"
            End If
        Case  2 ,  3 ,  4 ,  5 
            s = "камера " & cam
    End Select
    Me.Refresh
    Me.lblText.caption = "Обрабатывается " & s
    Me.prbMain.Value = Me.prbMain.Value +  5 
End Sub

Private Sub Timer_Timer()
    Me.Timer.Interval =  0 
    Set rpt = New LclsReport
    rpt.create
    Set rpt = Nothing
    Me.Hide
    Unload Me
End Sub