差し込み印刷ヘルパー

解決

うちな 2007-07-16 18:48:15 No: 143743

やりたい事としてvbからwordの差し込み印刷ヘルパー機能を使用して
c:\test.txtのデータをc:\tesr.docへ挿入し印刷です。

現状として、データが差し込まれずに印刷されているので、
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

(報告) 2007-07-21 02:36:21 No: 143744

マルチ先で解決
http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?no=5825&reno=no&oya=5825&mode=msgview&page=0

うちな 2007-07-23 23:36:07 No: 143745

解決しました。
詮索ご苦労様♪

うちな 2007-07-23 23:38:52 No: 143746

なんどもスイマセン。。