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



これをやっておかなかった時は、間違って押したら印刷されてしまい、紙の無駄があったのと、数秒後に元に戻る事ができて、マクロエラーも回避できました。
関連記事
-
エクセルVBAで未入力データがあるかどうか確認してから印刷する方法
エクセルで表や請求書などを印刷する時に、必要なデータが未入力のままで気づかずに印刷してしまったことありませんか? 紙の無駄になるので印刷する前に自動的に請求書… -
エクセルのセル値を取得して印刷ページ数・枚数を自動変更する方法
ページを印刷する時に、印刷ページや枚数を選ぶ作業って面倒だと思いませんか? エクセルで印刷するに毎回【ファイル】➡【印刷】を選ぶところから始まり、ページ… -
エクセルVBAでテキストボックスに入力した数字で印刷枚数を指定する
ユーザーフォームに配置したテキストボックスに入力した数字に応じて印刷枚数が指定できたら便利だと思いませんか? ワークシート上で【ファイル】➡【印刷】でペ… -
VBAで印刷プレビューするとフリーズして操作不能になる時の対処法
エクセルで印刷する前に確認の為に印刷プレビューを実行することがあると思いますが、フリーズして操作不能になってしまった経験はありませんか? ユーザーフォームに間… -
めんどうな印刷確認を省略してVBAで印刷範囲を指定して印刷する方法
表などを印刷する時に、印刷範囲が決まっていることが多いのに、毎回印刷プレビューで確認したりプリンターの設定確認をするのは面倒だと思いませんか? そこで予め印刷…
紅葉スポット
-
塩原温泉・紅の吊橋の紅葉絶景へ那須塩原駅や黒磯駅からバスで行く
【紅葉見頃】10月下旬~11月中旬 塩原温泉郷と言えば、箒川(ほうきがわ)沿いに温泉旅館が点在している首都圏からも近い温泉街ですが、紅葉の時期になるとカエデやも… -
那須高原・温泉神社へバスで那須塩原駅からパワースポットへ
栃木県内はもちろん関東エリアでも人気紅葉スポットとして取り上げられている那須岳の紅葉が終わりを迎える頃に、麓の那須温泉街で紅葉が始まります。 日帰り温泉も古く… -
竜神大吊橋の紅葉まつりへ常陸太田駅から路線バスで紅葉絶景へ
竜神大吊橋バンジーや5月の1000匹の鯉のぼりでテレビで取り上げられることが多い竜神大吊橋ですが、実はこの周辺は竜神峡にはもみじなども多く紅葉も年々認知されてきて… -
中禅寺湖を上から見られる絶景ポイント半月山展望台へ滞在時間50分
【紅葉見頃】10月中旬~11月上旬 最近インターネットや雑誌などで日光を紹介する時によく見る機会がある、中禅寺湖を上から撮った写真の場所ってどこだろうって思いま… -
中禅寺湖湖畔の紅葉散策へ奥日光の大定番紅葉観光スポットへ
中禅寺湖観光の中禅寺温泉バスターミナルから華厳の滝や中禅寺湖畔散策へ紅葉を楽しみに訪れる方も多く、紅葉見頃になるといろは坂からの大渋滞に巻き込まれ1時間以上、… -
黄金色の世界へ茨城県立歴史館のいちょう並木道と水戸偕楽園へ
梅で有名な水戸偕楽園には毎年多くの観光客が2月中旬~3月上旬にかけて訪れますが、紅葉の11月上旬~11月下旬までも偕楽園のもみじ谷と茨城県立歴史館のいちょう並木を…