Accessのレポートを印刷する

Accessのレポートを印刷する

Sub Accessレポートを印刷()
Dim objAcc As Access.Application, myMDB As String, myReport As String

'Accessをオブジェクトとして生成
Set objAcc = New Access.Application

'接続するmdbファイルを指定
myMDB = ThisWorkbook.Path & "\mdb\4-sampleDB.mdb"
'印刷するレポートを指定
myReport = "R_商品マスタ"

With objAcc
  .OpenCurrentDatabase myMDB  '対象データベースを開く
  .DoCmd.OpenReport myReport  'レポートを印刷
  .CloseCurrentDatabase       '閉じる
  .Quit                       'Accessを終了
End With

Set objAcc = Nothing

End Sub

Accessのレポートを印刷する
Accessアプリケーション.DoCmd.OpenReport レポート名

印刷するレポート