AccessからWordの差し込み印刷文書を印刷するVBAについて教えてください
Access初心者です。
使用バージョンは、Access・Wordともに2007です。
Accessのクエリー／テーブルをWord文書に差し込み、Accessから起動してその差し込み文書を印刷したいのですが、うまくいきません。
Getobjectを使ってWordの差し込み文書テストを印刷する以下のようなプロシジャを作成しました。
予め、手動でWordを起動してから、このプロシジャを実行すると、文書『テスト』を開く前に「次の文書を開くと次のコマンドが実行されます。Select*fromテーブル名 データベースのデータが文書に挿入されます続行しますか？」のメッセージが表示されて応答確認が来るのですが、Wordを起動せずに実行すると、上記のメッセージは表示されず、テーブル内のデータに更新がかかっているにもかかわらず、上記メッセージで「いいえ」と応答したのと同様の状態で印刷されます。
はたして、こんなプロシジャでよいのか、使用方法が間違っているのかすら見当がつきません。どなたかアドバイスをお願いいたします。
（作成したプロシジャ）
On Error GoTo エラー発生
Dim WordFilePass As String
WordFilePass = "C:\Users\User1\Documents\テスト.docx"
Dim MyWord As Word.Application
Set MyWord = GetObject(, "Word.Application")
MyWord.Visible = True
MyWord.Documents.Open FileName:=WordFilePass
MyWord.ActiveDocument.PrintOut
MyWord.Application.Quit
Set MyWord = Nothing
エラー発生:
If Err.Number = 429 Then
Set MyWord = CreateObject("Word.Application")
Resume Next
Else
MsgBox "エラーNo : " & Err.Number & vbNewLine & vbNewLine & _
"エラー内容 : " & Err.Description
End If
お礼
回答への補足を書いたあと、どーしよ～とひとしきり悩んだあげく、ふと出来心で【プリンタに差込】ボタンの左方にある【差込印刷ヘルパー】をクリックしてみましたら… ●「３．データの差込」で「差し込み」ボタンをクリック ●「差し込み」ウインドウが出るので「差し込み先」で「プリンタ」を選択し、 「差し込むレコード」で印刷したい最初のレコード番号と最終のレコード番号を入力 （ここで「すべて」にチェックしたままだとやはり先頭だけ） ●「差し込み」ボタンをクリック で、印刷ウインドウが出るので、ＯＫを押してあげたら、印刷が始まりました！ 今プリンタがフル稼働中です (^_^)v 【プリンタに差込】ボタンは全く眼中になかったので、maityさんにその存在を教えてもらわなければ、こんな出来心は起こらなかったです。 ということで、心を込めてポイントをさし上げます。ありがとうございました！
補足
早速ありがとうございます！ それでやってみたのですが… やはり先頭レコードだけ印刷して終わっていまいました (T_T) 差し込みの仕方が良くないのでしょうか？ 教則本を見ながらやっているのですが、下記の要領で差し込みをしました。 ●Accessの「ツール(T)」をクリック→「Office Links」→「Wordに差し込み」 ●「Word差し込みウィザード」→該当のWordファイルを選択 →Wordが自動的に起動 ●Wordの「差し込みフィールドの挿入」ボタンをクリック、差し込みするデータを選択 ●「差し込んだデータの表示」（《 》ABCと書いてあるアイコン）をクリックし、実際のデータを表示させる 教則本には、これ以上のことが書いてありません。他にも差し込みの仕方があるのでしょうか？？（悩）