[[20080229083822]]　『マクロで印刷時、キャンセル押すとエラー』（なた）　ページの最後に飛ぶ

『マクロで印刷時、キャンセル押すとエラー』（なた）

 こんにちわ。なたと申します。
今日はマクロで印刷するときに、いつも考えていたことを
教えていただきたかったので質問しました。

 .printout で印刷をすると、画面では　[　印刷中　1/1ﾍﾟｰｼﾞ　]
 みたいな表示がでてきて、そこにはキャンセルボタンもあります。
たまに、使う人がそのキャンセルボタンを押してしまうとエラー
が出てしまいます。

 Application.Screenupdating = False でも、
Application.Displayarert = False でも、

 その表示を出さないようにはできませんでした。

 どうしたらそのエラーが出ないようにできるのでしょうか？
皆様は困ったことないですか？

 winXP Excel2007（←200,2003でも同じ悩み）です。

 Win2000&Excel2002では、以下のＡＰＩを使うとＯＫです。

 標準モジュールに
 '================================================================
 Declare Function LockWindowUpdate Lib "User32" (ByVal hwndLock As Long) As Long
 Declare Function GetDesktopWindow Lib "User32" () As Long
 '=====================================================================
 Sub sample()
　 On Error Resume Next
　 call  LockWindowUpdate(GetDesktopWindow())
　 ActiveSheet.PrintOut
　 call LockWindowUpdate(0)
　 On Error GoTo 0
 End Sub

 もっともCancelクリックでエラーになるなら、on error resume next
 エラー回避だけでも良いと思いますが・・・。
 ichinose

 むむ。
ichinoseさん
レスありがとうございます！
早速試してみます。

 on error resume nextって
他の時にも使えそうですね。
調べて使ってみます。

 ありがとうございますー！
（なた）

コメント返信：

[ 一覧(最新更新順) ]

[[20080229083822]] 『マクロで印刷時、キャンセル押すとエラー』（なた） ページの最後に飛ぶ

[[20080229083822]]　『マクロで印刷時、キャンセル押すとエラー』（なた）　ページの最後に飛ぶ