はじめまして。

VBからWordの差込印刷を使用して、文書を作成しています。
VBでcsvファイルを作成し、差込設定をした文書に、差込処理を行います。

印刷時にプレビューをさせたいと思っていますが、画面が一瞬で閉じてしまいます。
Excelのようにプログラムが一旦停止してくれないみたいです。
すぐに次の保存する処理に移ってしまいます。
プレビュー画面に関して何か良い方法はありませんか？
それとも、これはWordの場合は仕方ないことなのでしょうか？

コードを投稿して頂くなら、他の人が実行して確認できるようなコードに
して頂くとよかったのですが、test.dot ファイルの中がどのようになっているのか
Word のバージョン　VB のバージョン等も記入していないし、差込印刷といっても
色々あるようですし、ここの宛名ラベルの差込印刷とは大分違いますし、

>それとも、これはWordの場合は仕方ないことなのでしょうか？
まず、自分で確認できる事は自分で確認して下さい。
Word を直接手動で操作した場合プレビューはどうなりますか？

wrdmail.Execute　で印刷を開始していると思うのですが？　この後にプレビューを
してもだめでは。
wrdmail.Execute 命令の前にプレビューを実行してみては、たとへば 下記のように

wrdmail.Destination = wdSendToNewDocument
この間にプレビューを実行する。
wrdmail.Execute


# 確認できておりません(していません)ので推測ですが。(^_^;)

返信ありがとうございます。投稿に関して不備な点がありまして、申し訳ございません。

> wrdmail.Destination = wdSendToNewDocument
> この間にプレビューを実行する。
> wrdmail.Execute
この方法を試させていただきましたが、
wrdmailExecuteの部分で「(4605)印刷プレビューモードのためメソッドまたはプロパティが使用できません」というようなエラーが出てしまいました。

Word文書を開き、プレビュー表示させて閉じるだけのシンプルなプログラムでも画面が一瞬で閉じてしまいました。
現時点で原因が分からないので、差込処理をした文書を保存し、一旦Wordを終了させて、SHELL起動で文書を開くことにしました。
お答え頂いたのにすみませんでした。
また自分でも原因を調べていきたいと思います。
ありがとうございました。

前記のコードはWordを閉じたままの処理になっていると思うのですが
wrdappl.Visible = True　でWordの画面を表示しておく必要
（プレビューを表示するには）があるのでは。


その上で下記のようにしてプレビューを表示させて下さい。

    wrddoc1.PrintPreview
    While wrdappl.ActiveWindow.View = wdPrintPreview
        DoEvents
    Wend

# 投稿されたコードが他のサイトからのペーストなら転載許可がない場合は削除
　しておいて下さい。（許可を得ておられるなら結構ですが）

　　

> 前記のコードはWordを閉じたままの処理になっていると思うのですが
> wrdappl.Visible = True　でWordの画面を表示しておく必要
> （プレビューを表示するには）があるのでは。
確かにその通りですね。記述し忘れておりました。
>
> その上で下記のようにしてプレビューを表示させて下さい。
>
>     wrddoc1.PrintPreview
>     While wrdappl.ActiveWindow.View = wdPrintPreview
>         DoEvents
>     Wend
こちらも試してみたのですが、前より表示される時間が長くなっただけで、
しばらくすると画面が閉じてしまいました。

コードは削除しておきました。申し訳ありませんでした。

> こちらも試してみたのですが、前より表示される時間が長くなっただけで、
> しばらくすると画面が閉じてしまいました。

多分設定している位置が悪いかと思います。印刷処理後にしていませんか？
私がテストした限りではプレビューの画面を閉じるまでそのままでした。
但し、wrddoc1.PrintPreview では元のファイルをプレビューしてしまうので差し込んだ
ファイルを指定する必要があったのですが、チョットやっかいで時間がなかったのと、貴方からの
返信もないし、もういいのかなと思ってそのままになっていました。
従って、ファイルの指定とプレビューのウィンドウを閉じるまで待機するコードを使用する
箇所を変更して頂ければいけるかと思います。

ファイル名及びパスは私の環境に変更しております。
VB6.0(SP6) WindowsXP SP2 Word2002 の環境でテストしました。
これでプレビュー表示されました。（勿論閉じるまでそのままです）

    wrdappl.Visible = True
    wrdmail.Destination = wdSendToNewDocument
    wrdmail.Execute
    wrdappl.ActiveWindow.View.Type = wdPrintPreview
    While wrdappl.ActiveWindow.View = wdPrintPreview
        DoEvents
    Wend

何度も返信ありがとうございます。
きちんとプレビュー画面が表示されました。
やはり、記述する場所が悪かったようです。

>     wrdappl.Visible = True
>     wrdmail.Destination = wdSendToNewDocument
>     wrdmail.Execute
>     wrdappl.ActiveWindow.View.Type = wdPrintPreview
>     While wrdappl.ActiveWindow.View = wdPrintPreview
>         DoEvents
>     Wend
>
WordのプレビューはExcelと違って、DoEventsとWendで制御しなければいけないのですね。
とても勉強になりました。
これまでお答えありがとうございました。