Excelで複数の選択した行を1ページに印刷するにはどうすればよいですか？

ここでは、ExcelでVBAを使用して複数の選択した行を1ページに印刷する方法について説明します。以下の手順に従ってください：

1. Alt + F11 キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入 」＞「モジュール」をクリックし、新しいモジュールウィンドウに以下のVBAコードを貼り付けます。

VBA: Excelで複数の選択した行を1ページに印刷する

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. F5キーを押すか、「実行」ボタンをクリックしてこのVBAを実行します。

4. これでKutools for Excelダイアログボックスが表示されます。印刷したい複数の行を選択し、「OK」ボタンをクリックしてこれらの行を印刷します。

注: Ctrlキーを押しながら、複数の非隣接する行を同時に選択できます。

これらの連続しない行を他のワークシートにコピーして連続する範囲として貼り付ければ、簡単に1ページに印刷することができます。この方法では、Kutools for Excelの「範囲のコピー 」機能を使って対処します。

1. 新しいワークシートを作成し、印刷したいテーブル内の行を選択してから、Kutools ＞ 範囲 ＞ 範囲のコピーをクリックします。

注: Ctrlキーを押しながら、複数の非連続的な行を同時に選択できます。

2. 表示される「複数の範囲のコピー」ダイアログボックスで、「すべて」オプションをチェックし、「OK」ボタンをクリックします。

注: 「行の高さを含める」オプションと「列の幅を含める 」オプションは、選択した範囲の行の高さと列の幅をコピーし、目的の範囲に貼り付けます。

3. 新しく作成されたワークシートのセルA1を選択し、「OK」ボタンをクリックします。

4. 目的のワークシートに留まり、Kutools ＞ 削除 ＞ 空白行を削除 ＞ アクティブなワークシートをクリックします。

するとダイアログボックスが表示され、削除された行数が表示されます。閉じるだけです。

5. ファイル（またはOfficeボタン）＞ 印刷 をクリックして、これらの行を印刷します。

実際、Kutools for Excelは、Excelで複数の範囲を一緒に印刷するために「複数選択印刷ウィザード 」を設計しています。

1. Kutools Plus ＞ 印刷 ＞ 複数選択印刷ウィザード をクリックして、「複数選択印刷ウィザード」を開きます。

2. 開いた「複数選択印刷ウィザード」で、 追加 ボタン  をクリックして印刷する行を追加し、次に 完了 ボタンをクリックします。

注意：

(1) 「 追加 」ボタンをクリックした後、 Ctrlキーを押しながら、一つずつ選択することで、1つのワークシート内で複数の非連続的な範囲を選択できます； Ctrl キーを押しながら、一つずつ選択することで、1つのワークシート内で複数の非連続的な範囲を選択できます；

(2) 「印刷する範囲」リストから範囲/行を削除するには、その範囲/行を選択して「 印刷する範囲 」リストから範囲/行を削除するには、その範囲/行を選択して「 削除 」ボタンをクリックします。.

(3) このユーティリティは、 $4:$4のような行全体や、$B:$Bのような列全体の印刷には対応していません。

3. 選択された行や範囲は、リンク付きの画像として新しいワークシートに貼り付けられます。続けて、ファイル（またはOfficeボタン）＞ 印刷 をクリックして印刷します。