AccessでExcelシートを印刷

締切済

質問者：taknakano
質問日時：2003/01/27 12:50
回答数：1件

Accessで例えばフォームのコマンドボタンを押したら指定のExcelファイルのシートを印刷するような事はできるのでしょうか？

通報する

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

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： Dxak
回答日時：2003/01/27 14:46

こんにちは、

ＶＢＡでオブジェクトを使用すれば可能ですけど、

とりあえずのコードを記載しておきますね＾＾；

On Error Resume Next

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
oApp.Workbooks.Open FileName:="[Path&FileName]"
oApp.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
oApp.Quit
oApp.Close
Set oApp = Nothing

以上です。

Access97で、テストしてますけど・・・バージョンによっては動かないかも＾＾；