| タイトル | ： Re^2: 差し込み印刷 |
| 記事No | ： 5831 |
| 投稿日 | ： 2007/07/13(Fri) 17:09 |
| 投稿者 | ： うちな |
そうですね。失礼しました。自分なりに分かる範囲で書いてみます。
まず、やりたい事としてvbからwordの差し込み印刷ヘルパー機能を使用して
c:\test.txtのデータをc:\tesr.docへ挿入し印刷です。
開発環境は、word2003 vb.2005です
現状として、データが差し込まれずに印刷されているので、
vbからwordの起動・印刷は動作していて、差し込み部分の問題かと思っております。
vbソースのdmail.OpenDataSourceの部分でデータの差し込みを行っていると
思うのですが、いまいち理解が出来ていません。
test.txtの内容は下記のとおりです
"項目１","項目２"
"内容１","内容２"
tesr.docには項目１・項目２を差し込みフィールドとしていて、
内容１・内容２をデータとして設定したく思っています
vbソース
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wrdappl As Word.Application
Dim wrdmail As Word.MailMerge
Dim mstrRootDir As Char = "C"
wrdappl = New Word.Application
wrdappl.Documents.Open("c:\tesr.doc")
wrdmail = wrdappl.Documents("c:\tesr.doc").MailMerge
wrdmail.OpenDataSource( _
Name:="C:\test.txt", _
ConfirmConversions:=False, _
ReadOnly:=True, LinkToSource:=False, _
AddToRecentFiles:=False, _
Connection:="DSN=Text Files;DBQ=" _
& mstrRootDir & ";FIL=RedISAM;", _
SQLStatement:="SELECT * FROM `test.txt`", _
SQLStatement1:="")
wrdappl.PrintOut(Background:=True)
wrdappl.Quit()
End Sub
|