如何在Excel中的一頁上一起打印選定的列？

默認情況下，Excel在打印時將多個選定的列劃分為單獨的頁面。 如果要在一頁上一起打印選定的列，該怎么辦？ 本文將向您展示實現它的方法。

與VBA代碼一起打印選定的列

輕松打印選定的列以及出色的工具與VBA代碼一起打印選定的列

您可以使用VBA代碼在一頁上一起打印多個選定的列。 請執行以下操作。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將以下VBA代碼復制并粘貼到“模塊”窗口中。

VBA代碼：一起打印選定的列

Sub Print_MultiAreas()Dim xRg As RangeDim xSht As WorksheetDim xArea As RangeDim xTxt As StringOn Error Resume NextxTxt = ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select columns:", "Kutools for Excel", xTxt, , , , , 8)If xRg Is Nothing Then Exit SubSet xSht = Worksheets.Add(After: = Sheets(Sheets.Count))For Each xArea In xRg.AreasxArea.Copy Destination: = xSht.Range(xArea.Address)xSht.Range(xArea.Address).Value = xArea.ValueNextxSht.PrintPreviewxSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=FalseApplication.Displayalerts = FalsexSht.DeleteApplication.Displayalerts = TruexRg.Parent.ActivateEnd SubCopy

3。 按 F5 鍵來運行代碼。 然后一個 Kutools for Excel 彈出對話框，請在按住的同時選擇要逐一打印的列 按Ctrl 鍵。 最后點擊 OK 按鈕。 看截圖：

4.然后，您將獲得一個打印預覽窗口，單擊 打印 按鈕開始打印。

注意：如果某些選定的列不在一頁中，請在預覽窗口中單擊“下一頁”以查看其他選擇。 它們將作為自己的頁面打印到單獨的頁面中。

輕松打印選定的列以及出色的工具

如果您很難處理VBA代碼，則可以嘗試 打印多選向導 實用程序 Kutools for Excel。 有了這個工具，您只需單擊幾下即可輕松地將多個選定的列一起打印在一頁上。

申請前 Kutools for Excel請 首先下載并安裝.

1.按住，一一選擇列 按Ctrl 鍵。 然后點擊 Kutools 加> 印刷 > 打印多選向導.

2.在 打印多項選擇向導–第1步，共3步 對話框中，所有選擇的列都列在列表框中，請單擊 完成 按鈕。

3.然后，將所有選定的列提取為對象并放置在空白工作表上（默認情況下，所有選定的列都放置在一個列中，您可以根據需要排列它們的位置）。 然后開始打印工作表。

備注：如果要指定打印設置，請單擊 接著 在第1步（共3步）對話框中單擊按鈕，然后根據需要指定設置，如下圖所示。

如果您想（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel