Public Sub OnNavigateRecord(ctl As IRibbonControl)
On Error GoTo errorhend
    Dim prov As Object
   Dim prova As Variant
  Set prov = Screen.ActiveReport '(acHiddenCurrentPage)
 prova = prov.count '''''''''''''''' to moras nac
    Select Case ctl.ID
    Case "btnDesno": SendKeys "{RIGHT}", True
    Case "btnLijevo": SendKeys "{LEFT}", True
 Case "btnPocetak"
       Do Until prova = 0
            prova = prova - 1
            SendKeys "{LEFT}", True
            Loop
            SendKeys "%{Z}", True
Case "btnkraj"
        Do Until prova = 0
            SendKeys "{RIGHT}", True
            prova = prova - 1
        Loop
          SendKeys "%{Z}", True
End Select

Exit Sub
errorhend:
 MsgBox "Koncentracije malo...  ", vbCritical, "Upozorenje"
End Sub