エクセルファイルの印刷での中止

質問

２０ページくらいの印刷で途中で中止したい時のマクロがあるのでしょうか？わたしの持っている資料（たくさんはありませんが）にはどこにもありません。ちなみに
Sheets("Sheet1").PrintOut Copies:=1
で実行しています。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

#1 のhana-hana3さんのお書きになっているとおりなのですが、

TotalPage = 20

For i = 1 To TotalPage
　　 ActiveSheet.PrintOut From:=i, To:=i
　　 Application.Wait Now + TimeValue("00:00:10")
Next

などとしておいて、Printer に全て送ってしまうのを、1枚の印刷のスピードに合わせて、Wait で、マクロを遅らせればよいのではありませんか？

後は、マクロ自体を、Esc や　Ctrl + Break などで止めるか、

Application.EnableCancelKey = xlErrorHandler

で、エラーを発生させて、エラーに飛ばすなどすればよいと思います。

回答No.1

hana-hana3

無いと思います。
印刷を実行すると、プリンタドライバに処理が移るので、ＶＢＡの管轄では無くなってしまいます。

プリンタの電源を切って、用紙を抜いてリセットしてください。