| Home | What's New |
生産性向上 基本テクニック |
トラブル回避 テクニック |
生産性向上 リンク |
personal.xls 強化講座 |
生産性向上 ツール |
Site Map | Guest Book |
地球風 画像館 |
Q&A
Salon EXCELの質問はこちらへ |
|
11/05/2001 -
|
||
| １２．プリンターの用紙を確認しろ！ |
||
|
・
|
最近は、オフィスにレーザープリンターがあるのは珍しくもありませんよね。多くのレーザープリンターには、A4とA3など複数の用紙が常にトレーにセットされていて、パソコンから印刷するときは用紙設定を確認しなくても自動的にシートに設定した用紙サイズで印刷されます。 |
|
| しかし、カラー印刷ができるレーザープリンターはまだまだ高価なので、カラー印刷にはインクジェットプリンターを使っているというオフィスも多いのではないでしょうか。 | ||
| ・ | A3が印刷できるインクジェットプリンターを使っている場合は、ちょっと注意が必要です。 通常はA4を印刷することが多いと思いますが、A4の用紙をセットした状態で誤ってA3（とかB4とか）の用紙サイズに設定されたシートを印刷すると、プリンターは給紙される紙がA4でも構わずA3サイズで印刷を始めてしまいます。 その結果、プリンターのローラー部分などにインクが付いてしまって、掃除が大変だったりします。 |
|
| 印刷する前にシートの用紙サイズ設定を確認すればよいのですが、この失敗は何度もやってしまいます。 | ||
| ・ | そこで、印刷するときに用紙サイズ設定がA3ならば確認メッセージを出力するマクロを考えましたので、ここで紹介します。よく印刷するA3設定のシート（ブック）にこのマクロを入れておけば、うっかりの失敗は減らせると思います。 | |
| まず、マクロを追加したいシートがアクティブな状態（編集可能な状態）で、Alt
＋ F11 を押して Visual Basic Editor を開きます。下図の様に左上のウィンドウでThisWorkbookをダブルクリックした後、右側でBeforePrintを選択し、そこに以下のコードを記述します。メッセージやダイアログのタイトルは適当に変えて使ってください。 |
||
|
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim response As Integer
If ActiveSheet.PageSetup.PaperSize = xlPaperA3 Then
response = MsgBox("ページ設定がＡ３です。プリンターの準備はＯＫですか？", _
vbYesNo + vbQuestion + vbDefaultButton2, "印刷前の確認！")
If response = vbNo Then
MsgBox "印刷を中止します"
Cancel = True '印刷のキャンセル
End If
End If
End Sub
|
||
 |
||
| このマクロを追加しておくと、シートの用紙設定がA3の場合のみ、 印刷しようとすると右のような メッセージが出るので、プリンターに A3用紙をセットされていることを確認するまでは印刷を止めて おけるようになります。 「はい」を押すと印刷が開始されます。 |
 |
|
| シートの用紙サイズ設定を変更したい場合などは「いいえ」を 押します。そうすると、右のメッセージを表示して印刷を中止 します。 |
 |
|
