Private Sub OpreportPre()

    '指定したレポートを印刷プレビューで開く
   
    Dim rename As String
   
   
    rename = "レポート名"
   
    DoCmd.OpenReport rename, acViewPreview
   
End Sub


DoCmdオブジェクトのOpenQueryメソッドを使用すれば

クエリを印刷プレビューで開くことができます。

DoCmd.OpenQuery ”クエリ名”, acViewPreview