Microsoft Office AccessコミュのWordに差込

accessから差込設定をしたWordをフォームのボタンから
開けるんですが、フォームに表示されているレコードのみを
差込印刷のやり方が分かりません。

今設定しているコードです。

Private Sub 印刷_Click()
On Error GoTo Err_印刷_Click

Dim objWord As Object
Set objWord = CreateObject("Word.Application")
With objWord
.Documents.Open FileName:="D:\氏名変更時（旧姓使用）\旧姓使用受理通知書.doc"
.Visible = True
End With
Set objWord = Nothing

Exit_印刷_Click:
Exit Sub

Err_印刷_Click:
MsgBox Err.Description
Resume Exit_印刷_Click

End Sub

よろしくお願いします。

コメント(4)

最初
全て
最新の40件

[1] mixiユーザー 02月26日 21:27

ワード内の『プリンターに差し込み』ボタンを押すと、現在のレコードが選択できたと記憶しています。

[2] mixiユーザー 02月26日 23:23

回答ありがとうございます。
早速明日試してみます。

[3] mixiユーザー 02月26日 23:53

>『プリンターに差し込み』
出力先の問題なので、抽出とは関係ないように思います。
差し込んだ結果ではなく、差し込み用文書でフィールド名の表示ではなくデータ表示させた状態を
印刷すれば1ページしか印刷されないと思いますが、印刷結果が差し込み印刷した時と微妙に
違ってくる可能性があったような気がするのと、アクセスで表示されている現在のレコードと
連携させられかが問題ですね。

ワードに差し込む時に抽出すればいいのかもしれませんが、ワードののVBAはよくしりません。
印刷ボタンを押したときに現在のレコードのみのテーブルを作るとかして、そのデータから差し込みが
行われるようにしてはどうでしょう。

[4] mixiユーザー 02月27日 12:18

やっぱりワードのVBAも弄らないと
ダメなんですかね。
俺もワードはやったこと無いからな。

ログインすると、みんなのコメントがもっと見れるよ