【VBAリファレンス】VBA練習問題VBA100本ノック 52本目：複数シートの一括印刷

参照データ: https://excel-ubara.com/vba100/VBA100_052.html

1. VBA練習問題VBA100本ノック 52本目:複数シートの一括印刷の定義と基本構文

VBA(Visual Basic for Applications)において、一括印刷とは、Excelシート内のデータを一括で印刷する機能を指します。具体的には、多くの行や列にまたれたデータを一度に印刷することができます。この機能を活用することで、手動での印刷作業が大幅に効率化されます。

VBA で 一括印刷 を実現するためには、Range.PrintArea プロパティを使用します。PrintArea プロパティは、指定された範囲(Range オブジェクト)を印刷するために利用される値です。具体的な使い方としては、以下のようなコード例があります:

' 築例:一括印刷の実装
Set rng = ThisWorkbook.ActiveSheet.Range("A1:C3")  ' A1 列から C3 列までの一範囲を指定します
rng.PrintArea = "Print"  ' 印刷する文字を設定します

上記のコード例では、Range オブジェクトに “A1:C3” と指定し、印刷する文字として “Print” を設定しています。このため、Excel シート 上で “Print”という文字が印刷されます。

注意事項
– PrintArea プロパティ に 指定した値 が 正确であることを 確保してください。例えば、”Print” ではなく “印刷” として入力すると、正確に印刷されない場合があります。
– 一括印刷を実現するためには、印刷設定が 正常に 設定されていることを 前提とします。特に、印刷先(「Print」や 「Excel ファイル」など)が 正确であることを 確保してください。

練習問題
以下のコードを 基に、一括印刷を 実現する VBA スクリプト を 作成してください:

Set rng = ThisWorkbook.ActiveSheet.Range(“A1:C3”)
rng.PrintArea = “Print”

このコードを実行すると、Excel シート 上で A1 列から C3 列までの一範囲に “Print”という文字が 一括で印刷されます。

2. VBA練習問題VBA100本ノック 52本目:複数シートの一括印刷の基本例題

VBAを使用して、Excelの複数シートを一度に印刷する方法について学びましょう。以下に、基本的なコード例と解説を示します。

解説
VBAで、一括印刷を行うために、Workbook内の各个シートを指定し、Print命令を実行します。以下のステップを踏むことで、複数シートの一括印刷が可能です:

1. WorkbookとWorksheetsの理解:Workbookは、Excelファイル全体を管理するオブジェクトで、Worksheetsには各个シートが含まれています。
2. RangeとPrintAreaの設定:印刷を行う範囲を指定します。通常、ActiveSheetを指向し、印刷範囲を設定します。
3. Print命令の実行:Print命令を使用して、指定された範囲を印刷します。

以下に、基本的なコード例を示します。

コード例

‘ 52本目:複数シートの一括印刷の基本例題

‘ 全てのWorksheetsを取得する
Dim ws As Worksheet
Dim wb As Workbook

Set wb = Application.ActiveWorkbook
Set ws = wb.ActiveSheet

‘ 各个シートを一度に印刷する
For Each sheet In wb.Worksheets
If sheet.DisplayName <> “活性シート” Then ‘ 非活性シートのみ印刷
sheet.PrintOut False, True
End If
Next

‘ 特定のシートを印刷する例
Set ws = wb.Worksheets(“入力シート”)
ws.PrintOut False, True

‘ 全てのシートを印刷する例
For Each sheet In wb.Worksheets
sheet.PrintOut False, True
Next

注意事項
– 活性シート以外の非活性シートを印刷する場合:If文を使用し、特定のシートを選択します。
– 印刷前にデータを確認:印刷前にデータを

3. 実務で役立つ応用パターン

Excel VBA で「複数シートの一括印刷」は、実務で頻に発生する課題です。例えば、多個の工作表を一度に並べて印刷する必要がある場合、手動で一行ずつ操作するのは効率が悪いです。VBA を活用して自動化することが理想的です。

以下に、実際に使用できるコード例と解説します。

概要
このコードは、複数の工作表を一度に印刷するために、各工作表内のデータを連結し、一行ずつ印刷することを目的としています。特定の条件(例:A1 に ‘印刷済’ という値が入っている)を基に、未印刷の部分を自動的に処理します。

要素
– 範囲指定: A1 列に ‘印刷済’ という値が入った行を終了条件とします。
– データ連結: 各工作表内のデータを一行ずつ連結し、最終的な行に ‘—‘ を追加します。
– 印刷処理: 最終行を含む範囲内を一度に印刷します。

コード

‘tinyMacro 処理開始

‘ 各工作表内のデータを連結するために、最初の空白行まで戻ります。
Do Until Sheets(“印刷対象”).A1 = “印刷済”
‘ 連結処理
Range(“A1:A” & Rows.Count).Find(“印刷済”, , False) → 最終行を取得します。
If 最終行 = False Then
Exit Do
End If

‘ 各工作表内のデータを連結します。
Sheets(“印刷対象”).Range.A1.A2.Activate
Range(“A1:A” & 最終行).Copy
Sheets(“印刷対象”).Range(A1).PasteSpecial xlPasteAll
Sheets(“印刷対象”).Range(A1).Delete

Loop
‘tinyMacro 処理終了

解説
1. Do Until ループ: A1 列に ‘印刷済’ という値が入った行を基に、未印刷の部分を処理します。
2. Find メソッド: 最後の ‘印刷済’ 行を取得

4. コードの詳細解説

VBAで複数シートの一括印刷を行うためのコード例を以下に示します。この例は、指定された範囲内のデータを一括で印刷するために使用します。

概要
このコードは、Excelシート内の多行・多列データを一度に印刷するためのVBAマクロです。具体的には、指定された範囲(例:A1からB10)内のデータを、ページごとに分割して印刷します。

使用方法
1. 範囲の指定:A1からB10までのデータを対象とします。
2. 印刷設定:各ページに最大4行を表示するように設定しています。
3. 一括印刷:「印刷」ボタンをクリックすると、指定された範囲内のすべてデータが一度に印刷されます。

コード

‘dataRange には、印刷する範囲を入れる必要があります。例: A1からB10まで。
Dim dataRange As Range
Set dataRange = ThisWorkbook.ActiveSheet.Range(“A1:B10”)

‘ページごとに最大4行を表示する設定
ActiveSheet.PageSetup.PrintArea = dataRange
ActiveSheet.PageSetup.PrintTitle = False
ActiveSheet.PageSetup.PrintHeadIndent = 0
ActiveSheet.PageSetup.PrintFooters = False

‘DataPrint macro
Sub DataPrint()
Dim lastRow As Long
lastRow = dataRange.Rows.Count

‘ページ数の計算
Dim totalPages As Integer
totalPages = (lastRow / 4) + 1

For i From 1 To totalPages
‘現在の行数を計算
Dim currentRow As Integer
currentRow = (i – 1) * 4 + 1

‘印刷する行数を設定
Dim printRows As Range
Set printRows = dataRange.Offset(currentRow, 0)

‘印刷
printRows.PrintOut False, , i
Next
End Sub

‘使用方法:DataPrint macro を呼び出すだけで、指定された範囲内のデータが一括で印刷されます。
Call DataPrint()

解説
1. Range オブジェクト:
– Dim dataRange As Range : 型宣言。dataRange には印刷する範囲を入れる必要があります。
– Set dataRange = ThisWorkbook.ActiveSheet.Range(“A1:B10”) : A1からB10までのデータを指定しています。

2. PageSetup プロパティ:
– ActiveSheet.PageSetup.PrintArea = dataRange : 印刷する範囲を設定します。
– ActiveSheet.PageSetup.PrintTitle = False : ヘッダーとフッターを非表示にします。
– ActiveSheet.PageSetup.PrintHeadIndent = 0

5. 注意点とエラー対策

VBAで一括印刷を行う際には、以下の注意事項とエラー対策が重要です。

注意事項:
1. フォーマットエラー: 一括印刷前に、各シートの最終行に空白セルがある場合、一部のデータが削除される可能性があります。 therefore, すべてのシートで最終行を空白セルとしてフォーマットする必要があります。
2. データ範囲エラー: PrintArea 関数を使用する際、指定された範囲にデータが存在しない場合、エラーが発生します。 therefore, ご自分のプログラムで適切なデータ範囲を確認し、必ずデータが存在する範囲を指定してください。
3. 印刷設定: 一括印刷を行う際には、印刷設定([Print Area](https://support.microsoft.com/ja-jp/office/Excel-Print-Area-and-Print-Title-features-1b489957-2f33-4d8f-bb17-cbarj6a000e?ocid=liuANC))を適当に設定し、必要に応じて [Header and Footer](https://support.microsoft.com/ja-jp/office/Header-and-Footer-Excel-101936392?ocid=liuANC) を追加することが重要です。

エラー対策:
1. データ存在確認: ご自分のプログラムで、PrintArea 関数に指定された範囲内のデータが存在することを必ず確認し、必要に応じて再生処理を行いましょう。
2. **空白セルの削除: すべてのシートで最終行を空白セルとしてフォーマットし、削除前に一度確認してください。
3. **エラー制御: VBA で [Error Handling](https://support.microsoft.com/ja-jp/office/VBA-Error-Handling-in-Excel-2007?ocid=liuANC) を使用し、エラーが発生した場合に適当な処理を追加してください。

以下に、VBA で 一括印刷を行うためのコード例を示します。


Sub OnePrint()
' 一括印刷の準備
Sheets("Sheet1").Activate
Range("A1:A10").PrintArea
End Sub