Как печатать только строки/ячейки с данными в Excel?

Этот метод представляет VBA для быстрой печати только строк с данными в указанном диапазоне в Excel. Пожалуйста, действуйте следующим образом:

1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Insert > Module, затем скопируйте и вставьте следующий код VBA в новое окно Module.

VBA: Печать только строк с данными в Excel

Sub PrintSummary()
Dim xRg As Range, xRg1 As Range, xCell As Range
Dim xSht As Worksheet
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range to print:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can't select multiple selections", , "Kutools for Excel"
Exit Sub
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set xSht = Worksheets.Add(After:=Sheets(Sheets.Count))
xRg.Copy xSht.Range("A1")
Set xRg1 = xSht.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg1.Columns(1).Cells
If Application.WorksheetFunction.CountA(xCell.EntireRow) = 0 Then
xCell.EntireRow.Hidden = True
End If
Next
xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
xSht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Нажмите клавишу F5 или кнопку Run, чтобы запустить этот VBA.

4. В открывшемся диалоговом окне Kutools для Excel укажите диапазон, где вы хотите игнорировать пустые строки и печатать только строки с данными, и нажмите кнопку OK.

Затем указанный диапазон будет немедленно напечатан, игнорируя все пустые строки.

Примечание: Этот VBA не поддерживает пакетную печать нескольких выборок с игнорированием пустых строк.

Этот метод использует утилиту Delete Blank Rows из Kutools для Excel для удаления всех пустых ячеек в активном листе или выбранном диапазоне, а затем печатает только строки с данными в Excel. Пожалуйста, действуйте следующим образом:

1. Перейдите на лист, где вы хотите печатать только строки с данными, и нажмите Kutools > Delete > Delete Blank Rows > Активный лист.

Примечание: Для печати строк с данными только в указанном диапазоне сначала выберите этот диапазон, а затем нажмите Kutools > Delete > Delete Blank Rows > Выбранный диапазон.

2. Появится диалоговое окно Kutools для Excel, показывающее, сколько пустых строк было удалено. Нажмите кнопку OK, чтобы закрыть его.

Теперь вы увидите, что все пустые строки удалены из активного листа/выбранного диапазона. См. скриншот:

3. Нажмите File (или Office Button) > Print, чтобы напечатать только строки с данными в активном листе или выбранном диапазоне.

Иногда вам может потребоваться печатать только ячейки с данными, игнорируя все пустые ячейки в Excel. Этот метод представляет утилиту Select Nonblank Cells из Kutools для Excel и мастер Print Multiple Selections Wizard для печати только ячеек с данными в указанном диапазоне в Excel.

1. Выберите диапазон, где вы хотите печатать только ячейки с данными, и нажмите Kutools > Select > Select Nonblank Cells.

2. Появится диалоговое окно Kutools для Excel, показывающее, сколько ячеек с данными было выбрано. Нажмите кнопку OK, чтобы закрыть его.

3. Продолжайте выделять эти непустые ячейки и нажмите Enterprise > Printing > Print Multiple Selections Wizard. См. скриншот:

4. В открывшемся диалоговом окне мастера Print Multiple Selections Wizard вы увидите, что все выбранные непустые ячейки перечислены в списке Ranges to print, пожалуйста, нажмите кнопку Finish.

5. Теперь все выбранные непустые ячейки будут скопированы и вставлены как связанные изображения на новый лист. Пожалуйста, нажмите File (или Office button) > Print, чтобы напечатать эти ячейки с данными.

Печать каждой строки/ячейки на отдельной странице в Excel

Показывать только область печати на листе в Excel

Печать областей, выборок и всей книги в Excel