Excelで作成したデータを印刷する際、特定の範囲だけを印刷したい場合がありますよね。特に、複数の範囲を一度に印刷する必要があるとき、手動で設定するのは手間がかかります。そこで、VBA（Visual Basic for Applications）を使って、効率的に印刷範囲を設定する方法をご紹介します。
印刷範囲をVBAで設定する基本の方法
Excelのイメージ
まずは、VBAを使って印刷範囲を設定する基本的な方法から始めましょう。
印刷範囲を直接指定する方法
特定のセル範囲を印刷範囲として設定するには、以下のように記述します。
vba
Sub SetPrintArea()
ActiveSheet.PageSetup.PrintArea = "D20"
End Sub
このコードを実行すると、シートのからD20までの範囲が印刷範囲として設定されます。
変数を使って印刷範囲を設定する方法
印刷範囲を動的に変更したい場合、変数を使って設定することができます。
vba
Sub SetPrintAreaWithVariables()
Dim startRow As Integer
Dim endRow As Integer
startRow = 1
endRow = 20
ActiveSheet.PageSetup.PrintArea = Range(Cells(startRow, 1), Cells(endRow, 4)).Address
End Sub
このコードでは、`startRow`と`endRow`の値を変更することで、印刷範囲を柔軟に設定できます。
複数の印刷範囲を一度に設定する方法
次に、複数の範囲を一度に印刷範囲として設定する方法をご紹介します。
複数範囲をカンマで区切って指定する方法
複数の範囲を一度に指定するには、以下のようにカンマで区切って範囲を指定します。
vba
Sub SetMultiplePrintAreas()
ActiveSheet.PageSetup.PrintArea = "D20, F1:H20"
End Sub
このコードを実行すると、からD20までとF1からH20までの範囲が印刷範囲として設定されます。
範囲を動的に追加する方法
印刷範囲を動的に追加したい場合、以下のようにコードを記述します。
vba
Sub AddToPrintArea()
Dim newRange As Range
Set newRange = Range("J1:L20")
If ActiveSheet.PageSetup.PrintArea = "" Then
ActiveSheet.PageSetup.PrintArea = newRange.Address
Else
ActiveSheet.PageSetup.PrintArea = ActiveSheet.PageSetup.PrintArea & "," & newRange.Address
End If
End Sub
このコードでは、`newRange`として指定した範囲を既存の印刷範囲に追加しています。
印刷範囲をクリアする方法
不要になった印刷範囲をクリアするには、以下のコードを使用します。
vba
Sub ClearPrintArea()
ActiveSheet.PageSetup.PrintArea = ""
End Sub
このコードを実行すると、現在設定されている印刷範囲がクリアされます。
よくある質問や疑問
Q1: 印刷範囲を設定した後、印刷プレビューで確認する方法はありますか？
はい、印刷プレビューで確認するには、以下のコードを使用します。
vba
Sub PrintPreview()
ActiveSheet.PrintPreview
End Sub
このコードを実行すると、設定した印刷範囲が印刷プレビューで表示されます。
Q2: 印刷範囲を設定した後、実際に印刷する方法はありますか？
実際に印刷するには、以下のコードを使用します。
vba
Sub PrintSheet()
ActiveSheet.PrintOut
End Sub
このコードを実行すると、設定した印刷範囲が実際に印刷されます。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Excel VBAを使うことで、複数の印刷範囲を効率的に設定することができます。手動で設定する手間を省き、業務の効率化を図りましょう。もし、VBAのコードの使い方やカスタマイズについてさらに詳しく知りたい場合は、お気軽にLINEでお声掛けください。
コメント