エクセルのマクロで印刷プレビューを閉じる方法

印刷プレビューをだすなら
PrintPreviewでわかるのですが、表示されたプレビュー画面を、自分で「閉じる」または「印刷」ボタンを押さなくとも閉じるにはどう書けばいいのでしょうか？

No.4 ベストアンサー 回答者： komet163 回答日時： 2005/04/04 15:30

こんにちは。

興味があったんで追試してみました。
下記の順に並べ変えると動きます。

For i = 1 To 5
Range("D4") = i * 100
SendKeys "%c"
ActiveSheet.PrintPreview
Next

恐らく、プリントプレビューはモーダルで、ActiveSheet.PrintPreview を発行後は、プリントプレビューを閉じるまで、マクロが停止すると思われます。
↑で動くのは、キーを先送りし、開いたと同時に閉じるので、マクロが止らずに進んでいるだけで、動作としては不安定（端末によってはうまくいかない。）です。
実際↑を走らすと、アクティブセルに不明な空白が入力され、入力待ち状態でマクロが終了します。

なにかしらの事情があってのご質問とは思いますが、やはりプリントプレビューはユーザに閉じて頂くのが本筋ではないでしょうか。

この回答へのお礼

ありがとうございました。キーを先送りすることで何とかクリアできました。
事情は、No3さんへのコメントに記載しました。

> プリントプレビューはモーダルで、> ActiveSheet.PrintPreview を発行後は、プリントプレビューを閉じるまで、マクロが停止すると思われます。

では、先ほど（No1）のマクロで一度閉じるを押すと、あと4回は押さなくとも自動で閉じたのはなぜなんでしょう？

お礼日時：2005/04/04 16:40

No.6 回答者： komet163 回答日時： 2005/04/04 17:11

#4 です。

クリアできたとのこと。良かったですね。

>あと4回は押さなくとも自動で閉じたのはなぜなんでしょう？
これは、手押しのキーが先送り１回目と同じ役割をし、
以降、ループ１回目の SendKeys "%C" はループ２回目の先送りキーとして、ループ２回目の・・・・
と順じ先送りキーと解釈されて動いたと思います。

この回答へのお礼

なるほど、ありがとうございます。

お礼日時：2005/04/04 19:34

No.5 回答者： kaiu 回答日時： 2005/04/04 16:12

No.1のものです。

何か回答増えてますが、
駄目でしたら、
SendKeys "%c" の下に
SendKeys "{ENTER}"
を下に書くとかは如何でしょう。

今テストできないので何ともいえませんが、
過去に似たようなものを作ったので
出来る様な気がするのですが・・・。
そうでなければごめんなさい。
興味がありますので頑張ってみてください。
一応自信なしに変えておきます^^;。

この回答へのお礼

ありがとうございます。

お礼日時：2005/04/04 19:34

No.3 回答者： ja7awu 回答日時： 2005/04/04 15:22

>「印刷」ボタンを押さなくとも閉じるにはどう書けばいいのでしょうか？

やろうとしていることが、VBAでは、無理と思いますよ。

「閉じる」という意思を何をもってExcelに伝えるのですか?

プレビュー画面は、モーダルで開かれて、「閉じる」ボタンまたは、そのショートカットキー

で、フレビューを閉じない限り、VBAコードは、実行出来ないと思います。

ですから、PrintPreview の下に SendKeys を記述しても、手動で閉じてから実行される

と思います。

何のためにそのようなことが、必要なのでしょうか？　必要ないと思うが・・・

この回答への補足

> 何のためにそのようなことが、必要なのでしょうか？　必要ないと思うが・・・

ええ、通常は必要ないですよね。
今回は、本来はプリントプレビューじゃなく印刷させるマクロなんです。
でもかなり分量があるのでテスト版は印刷じゃなくてプレビューで渡して、スライドショーのように画面の動きを見てもらい、OKがでれば「印刷」にかえるつもりでした。

補足日時：2005/04/04 16:33

No.2 回答者： kaiu 回答日時： 2005/04/04 15:16

テストしてませんが、

SendKeys "%C", True
でいかがでしょうか。

No.1 回答者： kaiu 回答日時： 2005/04/04 13:52

印刷設定関連のマクロはちょっと頭が悪いと思うのですが、

ボタンを操作する処理を書きます。

「閉じる」ならCアンダーバーだと思いますが
（閉じるボタンの横にあるショートカットキー）
.SendKeys "%c"
の様になります。%はAltという意味です。
Ctrl+ なら "^" を使用します。
ちなみにタブ移動は"^{TAB}"です。
どちらにしろSendKeysステートメントで書きます。

この回答へのお礼

さっそくありがとうございます。
以下でテストしてみました。

Sub TEST01()
For i = 1 To 5
Range("D4") = i * 100
ActiveSheet.PrintPreview
SendKeys "%C"
Next
End Sub

最初の一回はやはり閉じるを押さないとプレビューが終了しないようです。
一度押すと２～最後までは自動でプレビューを閉じ先に進みます。
どこが悪いのでしょうか？

お礼日時：2005/04/04 14:39