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 つずつ複数選択できます。

（2）「印刷する範囲」リストから範囲／行を削除するには、該当の範囲／行を選択して削除ボタンをクリックしてください。

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

3。選択した行／範囲は、新しいワークシートにリンク画像として貼り付けられています。「ファイル（または)Office ボタン）>印刷」をクリックして、すぐに印刷しましょう！