ページを印刷する時に、印刷ページや枚数を選ぶ作業って面倒だと思いませんか?
エクセルで印刷するに毎回【ファイル】➡【印刷】を選ぶところから始まり、ページ・枚数まで何行程もあるのですが、PrintOutメソッドを使えば、ワンクリックで印刷ができるので使い方をご紹介します。
PrintOutメソッド
Excel-VBAで印刷をコントロールするのがPrintOutメソッドで、印刷の基本設定や印刷プレビュー表示などができます。

よく見られているページ
-
エクセルの計算式の値を数字として読み取るVALUE関数
-
VBAの画面のちらつきがたった1行で解決して処理高速化する方法
-
COUNT関数を使って参加人数を自動的に数えるエクセル関数使用法
-
エクセルの時刻表示を0:00ではなく24:00にする方法
-
チェックボックスでチェック有と無しそれぞれの処理を変える方法
-
1クリックで上書き保存してエクセルファイルを閉じる方法
-
エクセル計算式が#VALUE!エラーになったセルを空欄にする方法
-
条件に一致したセルを繰り返し探してVBAで文字色を変える方法
-
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
-
エクセルシートの保護したらマクロエラーになった時のVBA対処法

新着ページ
ページ数のTO・FROMをセル自体に指定する
果たしてこの方法が正しい方法なのか分かりませんが、ページ数を指定するToとFromを数字ではなくセルを指定してみたら、上手くできたのでこの方法をいつも使っています。
まずは、分かりやすくToとFromを数字からセルを指定したVBAコードを書きます。
シートは「HOME」で開始ページ数を入力しているセルは「BM2」、終了ページ数を入力しているセルは「BM3」とし、印刷枚数は1枚を固定しています。
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut FROM:=Sheets(“HOME”).Range(“BM2”).Value, To:=Sheets(“HOME”).Range(“BM3”).Value, COPIES:=1, COLLATE:=True
End Sub
- コマンドボタン1をクリックしたら
- 表示されているシートを印刷で、開始ページ数はシート「HOME」のセル「BM2」の値を開始ページ数にする
- 終了ページ数はシート「HOME」のセル「BM3」の値を終了ページ数にして、印刷枚数1、部単位。
- マクロ記述終了
これで、人数など条件が変わるとセルBM2、BM3に変更された数字が計算されて入力されているので、わざわざ、開始ページ・終了ページを設定しなくても自動的に印刷されるようになります。
意外と難しくないでしょう、でも使うことが少ないのか、需要が無いのか、あまりこの方法って具体的に載っていませんでした。
エラー回避とメッセージと自動復帰を追加しよう
このままのVBAコードでは、印刷ができるのですが、コマンドボタンを誤って押してしまうと印刷が始まってしまうので誤クリック防止の為にメッセージを出しましょう。
Private Sub CommandButton1_Click()
msg = MsgBox(“レコードシートを印刷しますか?”, Buttons:=vbYesNo + vbQuestion)
If msg = vbYes Then
ActiveWindow.SelectedSheets.PrintOut FROM:=Sheets(“HOME”).Range(“BM2”).Value, To:=Sheets(“HOME”).Range(“BM3”).Value, COPIES:=1, COLLATE:=True
Else
Unload UserForm5
Sheets(“R”).Select
Range(“A1”).Select
MsgBox “15秒後に自動復帰します”
Application.OnTime Now + TimeValue(“00:00:15”), “RSTIME”
End If
End Sub
- コマンドボタン1をクリックしたら
- メッセージで「はい」「いいえ」を選択させる
- 「はい」を押したら
- 表示されているシートを印刷で、開始ページ数はシート「HOME」のセル「BM2」の値を開始ページ数にする
- 終了ページ数はシート「HOME」のセル「BM3」の値を終了ページ数にして、印刷枚数は1、部単位
- 「いいえ」を選択したら
- UserForm5を閉じて
- シート「R」を選択
- セル「A1」選択
- 「15秒後に自動復帰します」というメッセージを表示する
- タイマー設定して15秒後に「RSTIME」というプログラムを作動させる
- Ifステートメント終了
- マクロ記録終了
ちょっと長くなりましたが、簡単にいうと、「はい」を選択したら印刷開始、「いいえ」を選択したら、15秒間印刷内容を閲覧出来て、15秒後にRSTIME(元に戻るプログラム)を作動させるという事です。
これをやっておかなかった時は、間違って押したら印刷されてしまい、紙の無駄があったのと、数秒後に元に戻る事ができて、マクロエラーも回避できました。

Excel-VBAを使えば数分かかる作業がたったの1秒で終了しますよ!