Пакетная печать нескольких непустых строк с игнорированием пустых строк в Excel

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

1. нажмите другой + F11 одновременно клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

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

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 for Excel укажите диапазон, в котором вы хотите игнорировать пустые строки и печатать только строки с данными, и нажмите кнопку OK .

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

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

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

1. Перейдите на рабочий лист, на котором вы будете печатать строки только с данными, и нажмите Кутулс > Удалить > Удалить пустые строки > В активном листе. Смотрите скриншот:

Внимание: Для печати строк с данными только в указанном диапазоне сначала выберите этот диапазон, а затем нажмите Кутулс > Удалить > Удалить пустые строки > В выбранном диапазоне.

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

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

3. Нажмите Файл (или Кнопка управления)> Печать / PDF для печати только строк с данными на активном листе или выбранном диапазоне.

Иногда вам может потребоваться напечатать ячейки с данными, игнорируя все пустые ячейки в Excel. Этот метод представит Kutools for Excel's Выбрать непустые ячейки полезности и Мастер печати множественных выделений для печати только ячеек с данными в указанном диапазоне в Excel.

1. Выберите диапазон, в котором вы будете печатать только ячейки с данными, и нажмите Кутулс > Выберите > Выбрать непустые ячейки. Смотрите скриншот:

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

3. Продолжайте выделять эти непустые ячейки и нажмите Предприятие > Печать > Мастер печати множественных выделений. Смотрите скриншот:

4. В открывшемся диалоговом окне «Мастер печати нескольких выборок» вы увидите, что все выбранные непустые ячейки перечислены в Диапазоны для печати список, нажмите Завершить .

5. Теперь все выбранные непустые ячейки копируются и вставляются как связанные изображения на новый рабочий лист. Пожалуйста, нажмите Файл (или Кнопка офиса)> Печать / PDF чтобы распечатать эти ячейки с данными.

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

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

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