| 投稿日 | : 2005/02/17(Thu) 20:05 |
| 投稿者 | : 花ちゃん |
| Eメール | : |
| URL | : |
| タイトル | : テスト結果 |
ファイル名及びパスは私の環境に変更しております。
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