印刷

質問

ACCESSで作成したレポートをVBのコマンドボタンから
印刷したいのですが、どうしたらできるのかまったく
分かりません。

だれか、１から教えていただけないでしょうか。。。

回答No.2

taka_tetsu · ベストアンサー

VBは、オートメーションと呼ばれる方法で、Accessを制御することができます。

Dim acs as Object

'c:\test.mdbを開き、そのAccessのApplicationオブジェクトを取得する。
Set acs = GetObject("c:\test.mdb")

'レポート１を開く
acs.DoCmd.OpenReport "レポート１"

'アクティブオブジェクトを印刷する
acs.DoCmd.PrintOut

'Accessを終了させる
acs.DoCmd.Quit

'オブジェクトの開放
Set acs = Nothing

Applicationオブジェクトさえ取得できたら、AccessのVBAでできることは、すべてVBで操作できます。

お礼

コメント付の説明ありがとうございます。。
とてもわかりやすくて、苦手意識から解放されました。。。

回答頂いたとおりに入力したところ、思った様に動作しました。

ありがとうございます。

これからもっとｖｂを勉強していきたいと思っていますので、今後ともよろしくお願いいたします。

回答No.1

sha-girl

色々と方法はありますが一番簡単なのは
Printerメソッドです。
こんな感じで

Printer.DrawWidth = 4
Printer.Font = "ＭＳ ゴシック"
Printer.FontSize = 10
Printer.CurrentX = 10: Printer.CurrentY = 10
Printer.Print "あいうえお"
Printer.Print "かきくけこ"
Printer.Print "さしすせそ"
Printer.EndDoc

あいうえお
かきくけこ
さしすせそ

と印刷されると思います。

お礼

回答ありがとうございました。。