ExcelからAccessレポートの印刷 : Excel(エクセル)

ExcelからAccessのレポートを印刷します

■ 実行手順
1) SetステートメントでAccessオブジェクトを変数に代入します
2) OpenCurrentDatabase で指定Accessファイルを開きます
3) DoCmd.OpenReport でレポートを開き印刷します
4) CloseCurrentDatabase でAccessを閉じます
5) QuitでAccessを終了します

・Excel2007とAccess2007でテストした所、印刷は正常にできましたが、印刷プレビューはできませんでした
・Accessレポートが他のフォーム等を参照している場合はエラーになります。

Excel Tipsメニューに戻る

スポンサーリンク





Excel実行画面

・ Access印刷ボタンをクリックすると、印刷を開始します
Accessレポート印刷ソフト

・ PrimoPDFを使用し、印刷をPDFファイルで行った結果です
発注先レポート印刷結果

スポンサーリンク



Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim taccess As Access.Application
    Dim smdb As String
    Dim sreport As String
    
    'Accessファイル
    smdb = "c:\make64\partsOrder27.accdb"
    '印刷レポート
    sreport = "R_部品発注先マスター"
    
    Set taccess = New Access.Application
    'Accessファイルを開く
    taccess.OpenCurrentDatabase smdb
    'Accessレポートを開く
    taccess.DoCmd.OpenReport sreport
    'Accessを閉じる
    taccess.CloseCurrentDatabase
    'Access終了
    taccess.Quit
End Sub

Excel Tipsメニューに戻る




■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved