Dim Rpt As Report Set Rpt = Reports![ImeIzvjestaja] Me.Visible = False Rpt.Visible = False Rpt.Visible = True SendKeys "{RIGHT}", True Me.Visible = True