EXCELからACCESSのレポートを印刷

今日は作成中の在庫管理システムの、在庫数不足リストを作成・印刷する機能を実装しました。

先ずACCESSで不足分を計算して一覧を作るクエリを作成。

そのクエリを基にレポートを作成。

（これ、結構大変😰体裁整えるのにエラい時間かかった）

そしてここからが本番。

EXCELからレポートの印刷プレビューを開こうと四苦八苦・・・

色々調べて、プレビューを開くのは断念。直接印刷する事に。

ここでふとエコ心がムクムクと・・・

いや、今は紙じゃないでしょっ！

そう思い、PDFで出力する事にした。

これがなんか良い感じ😊

以下、コードです。

Set accessObj = New Access.Application
    
    With accessObj
        .OpenCurrentDatabase dbPath
        'PDFファイルを作成
        .DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, saveFile
        'PDFにしないで直接印刷する場合
        '.DoCmd.OpenReport saveFile
        .CloseCurrentDatabase
        .Quit
    End With
    
    Set accessObj = Nothing

dbPathにはACCESSのフルパス、saveFileには保存するPDFのフルパスがそれぞれ入れてあります。

あ、それからreportNameには苦労して作ったレポートの名前が入れてあります。