ＶＢからACCESSのレポートを印刷

解決済

質問者：GERRARD
質問日時：2002/02/19 15:09
回答数：2件

ACCESSは2000です。
どうかよろしくお願いします。
ソースを書いてくださってもいいですし、ホームページでもいいですので・・・

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1

回答者： sgh
回答日時：2002/02/19 16:02

VB6からACCESSですか？それともVBA..

VBAからなら
DoCmd.OpenReport "レポート名", acViewNormal
となります。
外していたらごめんなさい。

- 0
- 件

通報する

No.2ベストアンサー

回答者： TAGOSAKU7
回答日時：2002/02/20 00:17

VBの参照設定で

Microsoft Access 9.0 Object Library
のチェックをONにしてください。

sghさんの言われているとおり、自Accessアプリ内の制御は基本的にDoCmdを使用します。

VB6や外部のAccessなど(Office製品のVBA全て)から使用するのであれば、頭に対象となるAccess.Applicationの情報を付加するだけで、対象のAccessオブジェクトのDoCmd命令を実行することができます。

Sub subAccReportPrint()
　　Dim accApp　As Access.Application
　　
　　'Access の新しいインスタンスを作成
　　Set accApp = CreateObject("Access.Application")
　　
　　'データベースを Access ウィンドウで開く
　　accApp.OpenCurrentDatabase "c:\test.mdb"
　　
　　'印刷
　　accApp.DoCmd.OpenReport "レポート名", acViewNormal
　　
　　'現在開いているデータベースを閉じる
　　accApp.CloseCurrentDatabase
　　
　　'インスタンス破棄
　　Set accApp = Nothing
End Sub

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=37226