Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4080 / 13644 ツリー ←次へ | 前へ→

【58302】ブックの印刷枚数を限定する くやち 08/10/17(金) 10:49 質問[未読]
【58314】Re:ブックの印刷枚数を限定する りん 08/10/18(土) 14:02 発言[未読]
【58538】Re:ブックの印刷枚数を限定する くやち 08/10/29(水) 10:12 お礼[未読]

【58302】ブックの印刷枚数を限定する
質問  くやち E-MAIL  - 08/10/17(金) 10:49 -

引用なし
パスワード
   ブックに10枚程のシートがあります。
現在、ツールバーの印刷ボタンを押し印刷するように取り決めしていますが、ブックを参照したり印刷する人が増え、中にはメニューバーから印刷を選択し、印刷のダイアログで印刷枚数を複数枚に設定し印刷する人が増えています。
ブックを閉じる時に自動的にブックを保存するマクロを組んでいるため、設定した印刷枚数も保存され、次にブックを開く人がツールバー側の印刷ボタンを押すと複数枚印刷されてしまうことが多くなってしまいました。
そこで、ブックそのものに印刷枚数の変更ができないようにマクロを組みたいのですが、可能でしょうか?

【58314】Re:ブックの印刷枚数を限定する
発言  りん E-MAIL  - 08/10/18(土) 14:02 -

引用なし
パスワード
   くやち さん、こんにちわ。

>現在、ツールバーの印刷ボタンを押し印刷するように取り決めしていますが、ブックを参照したり印刷する人が増え、中にはメニューバーから印刷を選択し、印刷のダイアログで印刷枚数を複数枚に設定し印刷する人が増えています。
>ブックを閉じる時に自動的にブックを保存するマクロを組んでいるため、設定した印刷枚数も保存され、次にブックを開く人がツールバー側の印刷ボタンを押すと複数枚印刷されてしまうことが多くなってしまいました。
これがよくわかりませんが。枚数まで保存されますか?

>そこで、ブックそのものに印刷枚数の変更ができないようにマクロを組みたいのですが、可能でしょうか?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Cancel = True
End Sub
で、通常コマンドでは印刷できないようにして(マクロを無効にされると意味がないですが)、印刷メニューのコマンドバーまたはシート上のコマンドボタンを作成してそこからイベントキャンセルで印刷するようにしてみてはいかがでしょうか?
(シート).PrintOut Copies:=1で1枚だけ出せます。

【58538】Re:ブックの印刷枚数を限定する
お礼  くやち E-MAIL  - 08/10/29(水) 10:12 -

引用なし
パスワード
   りん さん
ご返事が遅くなりました。
ありがとうございました。
教えていただいたコマンドで、印刷できないようにはできたのですが、標準ツールバーにコマンドボタンを追加して見たのですが、同時に開いている他のEXCELのブックに反映されてしまいます。
もちろん、私の知識不足で、VBAが上手く組み込めなかったり、機能しなかったりもしてますが、無理そうなのであきらめようかと思っています。
ありがとうございました。

4080 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free