ImeReporta = "Ime_izvjestaja"
    DoCmd.OpenReport ImeReporta, acPreview
    DoCmd.Maximize
    DoCmd.RunCommand acCmdZoom200