投稿日 | : 2005/02/18(Fri) 10:49 |
投稿者 | : いちなな |
Eメール | : |
URL | : |
タイトル | : 解決しました。 |
何度も返信ありがとうございます。
きちんとプレビュー画面が表示されました。
やはり、記述する場所が悪かったようです。
> wrdappl.Visible = True
> wrdmail.Destination = wdSendToNewDocument
> wrdmail.Execute
> wrdappl.ActiveWindow.View.Type = wdPrintPreview
> While wrdappl.ActiveWindow.View = wdPrintPreview
> DoEvents
> Wend
>
WordのプレビューはExcelと違って、DoEventsとWendで制御しなければいけないのですね。
とても勉強になりました。
これまでお答えありがとうございました。