Dim OdS As String
Dim DoS As String


Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
DoS = UCase(Left(Me.Radnik, 1))
Me.slovo = "Od: " & OdS & " do: " & DoS
OdS = DoS
End Sub

Private Sub Report_Activate()
If Format$(DoS) = "" Then
OdS = UCase(Left(Me.Radnik, 1))
End If
End Sub