印刷の枚数を設定するには

質問

EXCELのシートを日々使用しております。このシートは常に2枚印刷をかけるのですが、毎回部数の設定が面倒です。印刷のアイコンで自動的に2枚印刷できるようにはできないでしょうか？よろしくお願いします。

回答No.2

imogasi

印刷するシートにボタンを１つ貼りつけ、そのクリックイベントに
Private Sub CommandButton1_Click()
DrawingObjects.PrintObject = False
Selection.PrintOut Copies:=2
End Sub
を登録すると、印刷範囲指定して、ボタンをクリックすると、２部印刷します。
印刷範囲が、ほぼ決まっているなら、少し多めに
Range("a1:d40").PrintOut Copies:=2
のように指定してしまうと、範囲指定がその都度は要りません。

回答No.1

anmochi

う～ん。毎回同じシートを使っているのであればVBAを使うという選択肢もあるのではないかな。
　VBAを使うとシートを選んで印刷の流れを簡単に自動化できるので、少し試してみてはどうかな。もちろん、2部出そうと何しようと自由だ。それがプログラムの良いところだ。
　ただ、VBAを使うと、Excelのセキュリティを中にしている場合、開くたびに毎回「マクロが含まれる」と出て逆にうっとうしいかも。