tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル差し込み印刷
記事No5825
投稿日: 2007/07/12(Thu) 14:30
投稿者うちな
vb2005、word2003を使って差込印刷機能より帳票出力を作成中ですが、
データが差し込みされずに項目名で印刷されてしまいます。
対処方または参考になるページ等ご存知の方教えてください。

test.txt
"項目1","項目2"
"内容1","内容2"

vb2005の印刷部分
        wrdappl.Documents.Open("c:\tesr.doc")
        wrdmail = wrdappl.Documents("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()

[ツリー表示へ]
タイトルRe: 差し込み印刷
記事No5829
投稿日: 2007/07/13(Fri) 13:13
投稿者花ちゃん
こう言った質問は、事象を再現できるコードを投稿して何方でも簡単に試せる
状況でないと回答がつきにくいかと思いますよ。


>参考になるページ等ご存知の方教えてください。

下記など参考になりませんか?

.NET から Microsoft Word の差し込み印刷をオートメーションで実行する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;301656

上記の情報は、ここの .NET の参考サイトリンク集に記載してあります。
http://hanatyan.sakura.ne.jp/dotnet/jyohou.htm

[ツリー表示へ]
タイトルRe^2: 差し込み印刷
記事No5831
投稿日: 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

[ツリー表示へ]
タイトル解決しました
記事No5887
投稿日: 2007/07/20(Fri) 15:09
投稿者うちな
Word2002で「宛て名ラベル」を印刷参考に、
問題解決しましたありがとうございました。

[ツリー表示へ]
タイトルRe: 解決しました
記事No5888
投稿日: 2007/07/20(Fri) 15:13
投稿者花ちゃん
> Word2002で「宛て名ラベル」を印刷参考に、
> 問題解決しましたありがとうございました。

単なる板汚しにならないように、結果を掲載するようにしましょう。

[ツリー表示へ]
タイトルRe: 解決しました
記事No5890
投稿日: 2007/07/20(Fri) 19:26
投稿者(報告)
> Word2002で「宛て名ラベル」を印刷参考に、
> 問題解決しましたありがとうございました。

マルチポストの模様
http://hpcgi1.nifty.com/MADIA/vbnet/wwwlng.cgi?print+200707/07070006.txt

[ツリー表示へ]