ExcelからAccessレポートの印刷 ： Excel
ExcelからAccessのレポートを印刷します
■ 実行手順
1) SetステートメントでAccessオブジェクトを変数に代入します
2) OpenCurrentDatabase で指定Accessファイルを開きます
3) DoCmd.OpenReport でレポートを開き印刷します
4) CloseCurrentDatabase でAccessを閉じます
5) QuitでAccessを終了します
・Excel2007とAccess2007でテストした所、印刷は正常にできましたが、印刷プレビューはできませんでした
・Accessレポートが他のフォーム等を参照している場合はエラーになります。
■ 実行手順
1) SetステートメントでAccessオブジェクトを変数に代入します
2) OpenCurrentDatabase で指定Accessファイルを開きます
3) DoCmd.OpenReport でレポートを開き印刷します
4) CloseCurrentDatabase でAccessを閉じます
5) QuitでAccessを終了します
・Excel2007とAccess2007でテストした所、印刷は正常にできましたが、印刷プレビューはできませんでした
・Accessレポートが他のフォーム等を参照している場合はエラーになります。
Homeに戻る > Excel 印刷のTipsへ
Excel実行画面
・ 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
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
Homeに戻る > Excel 印刷のTipsへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved