Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как остановить пустые строки при печати рабочего листа?

Если на вашем листе есть несколько пустых строк, обычно при печати листа также печатаются пустые строки. Чтобы распечатать лист, игнорируя пустые строки, мы можем сохранить бумаги для нас, в этом случае, как вы могли бы остановить пустые строки при печати листа?

Остановка пустых строк при печати рабочего листа с кодом VBA

Остановка пустых строк при печати рабочего листа путем одновременного удаления пустых строк


arrow синий правый пузырь Остановка пустых строк при печати рабочего листа с кодом VBA


С помощью следующего кода VBA вы можете распечатать рабочий лист без пустых строк, сделайте так:

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

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: Остановка пустых строк при печати:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 для запуска этого кода, и появится окно подсказки, чтобы напомнить вам, выберите диапазон данных, который вы хотите распечатать, см. снимок экрана:

doc print без пустых строк 3

4, Затем нажмите OK, и выбранный вами диапазон был напечатан сразу без пустых строк.


arrow синий правый пузырь Остановка пустых строк при печати рабочего листа путем одновременного удаления пустых строк

Если пустые строки бесполезны для вас, вы можете сначала удалить все пустые строки, а затем распечатать рабочий лист по мере необходимости. С Kutools for ExcelАвтора Удалить пустые строки вы можете быстро удалить пустые строки в выделенном, рабочем листе или рабочей книге по мере необходимости.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее:

1, Выберите диапазон данных, который вы хотите удалить пустые строки, а затем нажмите Kutools > Удалите файл > Удалить пустые строки > В выбранном диапазоне, см. снимок экрана:

doc print без пустых строк 1

2, И появится окно подсказки, чтобы напомнить вам, сколько пустых строк было удалено в списке.

doc print без пустых строк 2

3, После удаления пустых строк вы можете распечатать рабочий лист.

Нажмите Скачать Kutools для Excel сейчас!


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, графики и все, что вы использовали раньше; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Содержание сплит-клеток; Объединить дублирующиеся строки / столбцы... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более чем мощные функции 300, Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простота развертывания на вашем предприятии или в организации. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.