投稿日 | : 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