タイトル : Re^2: 差し込み印刷 投稿日 : 2007/07/13(Fri) 17:09 投稿者 : うちな
そうですね。失礼しました。自分なりに分かる範囲で書いてみます。 まず、やりたい事としてvbからwordの差し込み印刷ヘルパー機能を使用して c:\test.txtのデータをc:\tesr.docへ挿入し印刷です。 開発環境は、word2003 vb.2005です 現状として、データが差し込まれずに印刷されているので、 vbからwordの起動・印刷は動作していて、差し込み部分の問題かと思っております。 vbソースのdmail.OpenDataSourceの部分でデータの差し込みを行っていると 思うのですが、いまいち理解が出来ていません。 test.txtの内容は下記のとおりです "項目1","項目2" "内容1","内容2" tesr.docには項目1・項目2を差し込みフィールドとしていて、 内容1・内容2をデータとして設定したく思っています 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 |