Masaüstümde accesstr.accdb isimli bir dosya içinde tbl_ogrenciler isminde bir rapor var. Aşağıdaki kod ile açıp önizleme yapabilirsiniz.
Dim a As Access.Application
Set a = New Access.Application
a.OpenCurrentDatabase CurrentProject.Path & "\" & "accesstr.accdb"
a.DoCmd.OpenReport "tbl_ogrenciler", acViewPreview
a.DoCmd.Maximize
a.Visible = True