Пакетно отпечатване на множество непразни редове с игнориране на празни редове в 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 клавиша или щракнете върху бягане бутон за стартиране на този VBA.

4. В отварящия се диалогов прозорец Kutools за Excel, посочете диапазона, който искате да игнорирате празни редове и да отпечатате само редове с данни, и щракнете върху OK бутон.

След това посоченият диапазон се отпечатва веднага, като се игнорират всички празни редове в него.

Забележка: Този VBA не поддържа пакетен печат на множество селекции с игнориране на празни редове.

Този метод въвежда Kutools за Excel Изтриване на празни редове помощна програма за изтриване на всички празни клетки в активния работен лист или избран диапазон и след това отпечатване на тези редове с данни само в Excel. Моля, направете следното:

1. Отидете до работния лист, който ще отпечатате редове само с данни, и щракнете Kutools > Изтрий > Изтриване на празни редове > В активен лист. Вижте екранна снимка:

Забележка: За отпечатване на редове с данни само в определен диапазон, моля, изберете първо този диапазон и след това щракнете Kutools > Изтрий > Изтриване на празни редове > В избран диапазон.

2. Ще се появи диалогов прозорец Kutools за Excel и ще ви покаже колко празни реда са изтрити. Щракнете върху OK за да го затворите.

И сега ще видите, че всички празни редове са изтрити от активния работен лист/избран диапазон. Вижте екранна снимка:

3. Щракнете върху досие (или Бутон за офис)> Изпринти за да отпечатате само редове с данни в активния работен лист или избран диапазон.

Понякога може да искате да отпечатате клетки само с данни, като игнорирате всички празни клетки в Excel. Този метод ще въведе Kutools за Excel Изберете Непразни клетки полезност и Съветник за отпечатване на множество селекции за отпечатване само на клетки с данни в определен диапазон в Excel.

1. Изберете диапазона, където ще отпечатате само клетките с данни, и щракнете Kutools > Изберете > Изберете Непразни клетки. Вижте екранна снимка:

2. Излиза диалогов прозорец Kutools за Excel и ви показва колко клетки с данни са избрани. Щракнете върху OK за да го затворите.

3. Продължете да избирате тези непразни клетки и щракнете Enterprise > Печат > Съветник за отпечатване на множество селекции. Вижте екранна снимка:

4. В отварящия се диалогов прозорец Print Multiple Selections Wizard ще видите всички избрани непразни клетки да са изброени в Диапазони за отпечатване списък, моля щракнете върху завършеност бутон.

5. Сега всички избрани непразни клетки се копират и поставят като свързани картини в нов работен лист. Моля щракнете досие (или Офис бутон)> Изпринти за да отпечатате тези клетки с данни.

Отпечатайте всеки ред/клетка на отделна страница в Excel

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

Области за печат, селекция и цяла работна книга в Excel