tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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の内容は下記のとおりです
"項目１","項目２"
"内容１","内容２"

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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。