ExcelのXNUMXページに複数の選択範囲（すべての印刷領域）をバッチ印刷します

ここでは、ExcelのVBAを使用して、選択した複数の行をXNUMXページに印刷する方法について説明します。 次のようにしてください。

1。 押す 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 クリック インセット > モジュール、次に、以下のVBAコードを新しい開いているモジュールウィンドウに貼り付けます。

VBA：選択した複数の行をExcelのXNUMXページに印刷します

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 forExcelダイアログボックスが表示されます。 印刷する複数の行を選択して、 OK これらの行を印刷するボタン。

Note：保持 Ctrlキー キーを押すと、隣接していない複数の行を同時に選択できます。

これらの連続しない行をコピーして、他のワークシートに連続した範囲として貼り付けることができれば、それらをXNUMXページに簡単に印刷できます。 このメソッドは、Excel用のKutoolsを導入します コピー範囲 それに対処するためのユーティリティ。

1.新しいワークシートを作成し、次にテーブルから印刷する行を選択して、[ クツール > コピー範囲.

Note：保持 Ctrlキー キーを押すと、複数の連続しない行を同時に選択できます。

2. [複数の範囲をコピー]ダイアログボックスを開いて、[ すべて オプションをクリックし、 Ok

Note： 行の高さを含む オプション 列幅を含む オプションは、選択した範囲の行の高さと列の幅をコピーして、宛先の範囲に貼り付けます。

3.新しく作成したワークシートでセルA1を選択し、[ OK ボタン。

4.宛先ワークシートにとどまり、をクリックします クツール > 削除 > 空白行を削除する > アクティブシート内.

次に、ダイアログボックスが表示され、削除された行数が表示されます。 閉じてください。

5。 クリック File （または Officeボタン）> 印刷物 これらの行を印刷します。

実際にExcelデザイン用のKutools 複数選択ウィザードの印刷 Excelで複数の範囲を一緒に印刷します。

1。 クリック Enterprise > 印刷 > 複数選択ウィザードの印刷 複数選択の印刷ウィザードを開きます。

2.最初の複数選択の印刷ウィザードで、をクリックします Add (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。  一緒に印刷する行を追加するには、[ 終了

注意：

（1）をクリックした後 Add (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。 、を押し続けると、XNUMXつのワークシートで複数の連続しない範囲を選択できます。 Ctrlキー キーを押してから、それらをXNUMXつずつ選択します。

（2）範囲/行をから削除するには 印刷する範囲 リストで、この範囲/行を選択して、 削除 (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。.

（3）このユーティリティは、の行全体など、行と列全体の印刷をサポートしていません。 $ 4：$ 4、またはの列全体 $ B：$ B.

3.選択した行/範囲が、リンクされた画像として新しいワークシートに貼り付けられました。 クリックしてください File （または Officeボタン）> 印刷物 それを印刷します。