Excel не печатать кнопку
Нет, ваши глаза вас не обманывают. Это правда, что Excel по умолчанию не выводит кнопку печати на ленте. «Обычный» способ печати документа предполагает выбор команды Файл ► Печать ► Печать. Но если вам хочется запускать печать одним щелчком кнопкой мыши, внесите изменения в панель быстрого доступа.
- Щелкните на указывающей вниз стрелке справа от панели быстрого доступа.
- Выберите пункт Быстрая печать.
После этого на панели быстрого доступа появится новый значок. Щелкните на нем, и Excel распечатает все содержимое активного листа. Однако иногда хочется иметь больше возможностей управления теми документами, которые вы отправляете на печать.
Настройка общих параметров страницы
Нажатие кнопки Быстрая печать (или выбор команды Файл ► Печать ► Печать) может дать вполне приемлемые результаты во многих случаях, но все же небольшая настройка параметров печати поможет улучшить ваши бумажные отчеты. Вы можете настроить параметры печати в трех местах:
- на экране печати в представлении Backstage, отображаемом при выборе команды Файл ► Печать;
- на вкладке Разметка страницы ленты;
- в диалоговом окне Параметры страницы, которое открывается при нажатии кнопки со стрелкой в правом нижнем углу группы Разметка страницы ► Параметры страницы на ленте.
В таблице ниже приведена информация о настройках печати, которые вы можете указать в трех вышеупомянутых местах.
Места, где можно изменять параметры печати
Настройка | Экран печати в представлении Backstage | Вкладка Разметка на ленте | Окно Параметры страницы |
---|---|---|---|
Количество копий | X | ||
Какой принтер использовать | X | ||
Определение области печати листа | X | X | |
Одно- или двухсторонняя печать | X | ||
Разобрать (не разбирать) по копиям | X | ||
Ориентация | X | X | X |
Размер бумаги | X | X | X |
Регулировка полей | X | X | X |
Указывать ручные разрывы страниц | X | ||
Указывать повторяющиеся строки и/или столбцы | X | ||
Установить масштабирование печати | X | X | |
Печатать или скрыть сетку | X | X | |
Печатать или скрыть заголовки строк и столбцов | X | X | |
Определение первой страницы | X | ||
Центрирование данных на странице | X | ||
Определение заголовка, колонтитула и параметров | X | ||
Как печатать примечания к ячейкам | X | ||
Определение порядка следования страниц | X | ||
Черно-белая печать | X | ||
Как печатать ячейки с ошибками | X | ||
Запуск диалогового окна для настройки параметров принтера | X | X |
После изучения таблицы вам может показаться, что печать более сложна в применении, чем есть на самом деле. Помните ключевое правило: если вы не можете найти, где изменить какую-нибудь настройку, она, скорее всего, будет доступна в окне Параметры страницы.
Как запретить печать содержимого ячеек в Excel?
В некоторых случаях, когда вы распечатываете рабочий лист, вы можете не захотеть печатать некоторое содержимое ячеек, здесь в этом руководстве рассказывается о нескольких способах предотвратить печать определенного содержимого ячеек в Excel.
Запретить печать содержимого ячеек с помощью Kutools for Excel
Предотвратить печать содержимого ячеек, изменив цвет шрифта
Чтобы предотвратить печать содержимого ячейки, вы можете изменить цвет шрифта ячейки, чтобы его не было видно при печати.
1. Выберите ячейки, которые вы не хотите печатать, и нажмите Главная > Цвет шрифта, затем выберите цвет, который совпадает с цветом вашего фона из списка. Смотрите скриншот:
Здесь мой фон белый, я выбираю белый цвет шрифта. Теперь вы можете увидеть мои данные, как показано на скриншоте ниже:
2. Теперь вы можете нажать Файл or Кнопка управления > печать для предварительного просмотра листа.
Предотвратить печать содержимого ячеек, скрыв
Есть несколько способов, которые помогут вам скрыть содержимое ячейки, и тогда оно не будет распечатано.
Метод 1 Форматировать ячейки как ""; ""; ""; ""
1. Выберите ячейки, которые вы не будете печатать, и щелкните правой кнопкой мыши, чтобы выбрать Формат ячеек из контекстного меню.
2. в Формат ячеек диалога под Число вкладку нажмите На заказ из списка Категория, тип ""; ""; ""; " "в текстовое поле Тип в правом разделе. Смотрите скриншот:
3. Нажмите OK, теперь содержимое ячейки скрыто
Метод 2 Щелкните правой кнопкой мыши, чтобы скрыть весь столбец или строку
Если вы не печатаете весь столбец или строку, вы можете щелкнуть заголовок строки или заголовка столбца, чтобы выбрать всю строку или столбец, а затем щелкните правой кнопкой мыши, чтобы выбрать Спрятать из контекстного меню. Смотрите скриншот:
Метод 3: используйте группу, чтобы скрыть весь столбец или строку
1. Выберите столбец или строку, которую вы хотите скрыть, а затем щелкните Данные > группы. Смотрите скриншот:
2. Затем группы всплывающие окна, если вы хотите скрыть строки, отметьте Ряды вариант, если вы хотите скрыть столбцы, отметьте Колонны и нажмите OK.
Внимание: Если вы выбрали для группировки целые столбцы или целые строки, просто пропустите этот шаг.
3. Затем отметьте кнопку «минус», чтобы скрыть столбцы или строки. Смотрите скриншоты:
Запретить печать содержимого ячеек с помощью Kutools for Excel
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Нажмите Кутулс Плюс > Инструменты для печати > Мастер печати множественного выбора. Смотрите скриншот:
2. В появившемся диалоговом окне нажмите кнопку с плюсом, чтобы добавить выделение для печати. Смотрите скриншот:
3. Затем появится диалоговое окно для выбора вариантов, вы можете нажать Ctrl для одновременного выбора нескольких элементов. Смотрите скриншот:
4. Нажмите OK, тогда вы увидите, что несколько вариантов добавлены в Диапазон для печати, теперь нажмите Далее. Смотрите скриншот:
4. Затем в Шаг 2 из 3 выберите нужный вариант настройки печати и щелкните Далее.
5. На последнем шаге выбираю нужный вариант, здесь я просто выбираю Активировать лист, но не печатать его, нажмите Завершить.
Теперь он создаст новый рабочий лист перед всеми листами, чтобы показать все диапазоны, которые вы выбрали в диалоговом окне Шаг 1 из 3, и распечатать его. Смотрите скриншот:
Наконечник: Может быть, иногда данные не в порядке, вы можете перетащить их в нужное место, а затем распечатать. Щелкните здесь, чтобы получить дополнительные сведения о мастере печати множественного выбора.
Как распечатать определенные страницы или рабочий лист на основе значения ячейки в Excel?
Вы когда-нибудь пытались распечатать определенную страницу или рабочий лист на основе значения ячейки в Excel? И как этого добиться? Методы, описанные в этой статье, могут помочь вам решить эту проблему в деталях.
Распечатать определенную страницу на основе значения ячейки с кодом VBA
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Например, вы хотите, чтобы определенная страница, такая как страница 1 текущего рабочего листа, печаталась автоматически при вводе номера страницы 1 в ячейку A1 текущего рабочего листа. Для этого вы можете сделать следующее.
1. Выберите ячейку, содержащую номер страницы, на основе которой вы хотите напечатать, затем нажмите другой и F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно. Затем нажмите Вставить > Модули.
2. Затем Microsoft Visual Basic для приложений появится всплывающее окно, скопируйте и вставьте следующий код VBA в Код: окно.
Код VBA: печать страницы на основе значения ячейки
3. Нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel диалогового окна, нажмите Да кнопку, чтобы распечатать определенную страницу, или нажмите кнопку Нет , чтобы выйти из диалогового окна, если вы не хотите печатать. Смотрите скриншот:
После этого откроется окно предварительного просмотра определенной страницы текущего рабочего листа, нажмите печать кнопку, чтобы начать печать.
Распечатать определенную страницу на основе значения ячейки с кодом VBA
Предположим, вы хотите распечатать активный рабочий лист, когда значение в ячейке B2 этого листа равно числу 1001. Вы можете добиться этого с помощью следующего кода VBA. Пожалуйста, сделайте следующее.
1. Щелкните правой кнопкой мыши Вкладка листа который вы хотите напечатать на основе значения ячейки, а затем щелкните Просмотреть код из контекстного меню.
2. Затем Microsoft Visual Basic для приложений появится всплывающее окно, скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: распечатать лист на основе значения ячейки
Внимание: Вы можете изменить ячейку и значение ячейки в коде по своему усмотрению.
3. Нажмите другой + Q закрыть Microsoft Visual Basic для приложений окно.
При вводе числа 1001 в ячейку B2 появляется Kutools for Excel появится диалоговое окно, нажмите Да кнопку, чтобы начать печать. Или щелкните Нет , чтобы выйти из диалогового окна напрямую без печати. Смотрите скриншот:
Наконечник: Если вы хотите напрямую распечатать непоследовательные страницы, такие как страницы 1, 6 и 9 текущего рабочего листа, или распечатать только все четные или нечетные страницы, вы можете попробовать Печать указанных страниц утилита pf Kutools for Excel как показано ниже. Ты можешь пойти в бесплатно скачать программу без ограничений в течение 30 дней .
Можно печатать целые или частичные книги по одному или сразу несколько. А если данные, которые вы хотите напечатать, Microsoft Excel таблицы, можно распечатать только Excel таблицу.
Вы также можете напечатать книгу в файл, а не на принтере. Это полезно, если вам нужно напечатать книгу на принтере другого типа, который использовался для печати.
Перед печатью
Перед печатью в Excel следует помнить, что существует множество вариантов оптимальной печати. Дополнительные сведения см. в Excel.
Важно: Определенные виды форматирования, например цветной текст или заливка ячеек, могут хорошо выглядеть на экране, но не оправдать ожидания при печати на черно-белом принтере. Кроме того, можно распечатать лист с сеткой: в результате данные, строки и столбцы будут выделены лучше.
Печать одного или нескольких листов
Выберите файл >печатьили нажмите CTRL+P.
Печать одной или нескольких книг
Все файлы книг, которые требуется распечатать, должны находиться в одной папке.
Откройте меню Файл и выберите команду Открыть.
Удерживая нажатой кнопку CTRL, щелкните имя каждой книги для печати и нажмите кнопку Печать.
Печать всего или части таблицы
Щелкните лист и выберите диапазон данных, которые необходимо распечатать.
На вкладке Файл выберите пункт Печать.
В Параметрыщелкните стрелку рядом с кнопкой Напечатать активные листы и выберите нужный вариант.
Примечание: Если на листе заданы области печати, будут напечатаны только эти области. Если вы не хотите печатать только запредельную область печати, выберите игнорировать область печати. Подробнее о настройке и очистке области печати.
Печать таблицы Excel
Чтобы перейти к таблице, щелкните одну из ее ячеек.
На вкладке Файл выберите пункт Печать.
В разделе Настройки щелкните стрелку рядом с командой Напечатать активные листы и выберите параметр Напечатать таблицу.
Печать книги в файл
Откройте вкладку Файл и выберите команду Печать или нажмите клавиши CTRL+P.
В разделе Принтер выберите команду Печать в файл.
В диалоговом окне Сохранение результата печати введите имя файла и нажмите кнопку ОК. Файл будет сохранен в папке "Документы"
Важно: При печати сохраненного файла на другом принтере разрывы страниц и интервалы между шрифтами могут измениться.
Печать листа
Чтобы печатать на компьютере, используйте команду Печать в Excel в Интернете, а не в браузере. Вы можете напечатать весь таблицу или только нужные ячейки.
Если вы хотите напечатать диапазон ячеек, выберите их. Чтобы напечатать весь таблицу, ничего не выбирайте.
На вкладке Файл выберите пункт Печать и нажмите кнопку Печать.
Если вы выбрали диапазон ячеек, но решили напечатать весь электронный таблицу, перед нажать печать переключиться на всю книгу.
Изменение выбранной области печати
В Excel в Интернете можно указать область для печати или напечатать весь таблицу. Если вы решите изменить выбранную область печати, вот как можно просмотреть изменения:
На листе выделите ячейки, которые требуется напечатать, с помощью перетаскивания.
На вкладке Файл выберите пункт Печать и нажмите кнопку Печать.
Чтобы напечатать только выбранную область, в области Параметры печати щелкните Текущий фрагмент.
Если при предварительном просмотре выводятся нужные данные, нажмите кнопку Печать.
Чтобы изменить выбор, закройте предварительный просмотр, щелкнув X, и повторите предыдущие действия.
Чтобы напечатать весь лист, щелкните Файл > Печать > Печать. Убедитесь, что выбрана вся книга.
Печать таблицы со скрытыми строками и столбцами
В Excel в Интернете, при печати скрытой строки или столбцов скрытые строки и столбцы не будут напечатаны. Если вы хотите включить скрытые строки и столбцы, перед печатью нужно открыть их.
Строки или столбцы скрыты по недостающим подписям или двойным линиям, как показано на рисунке.
Вот как можно от видите строки или столбцы:
Вы можете выбрать диапазон, окружающий скрытые строки или столбцы. В этом примере выберите все заглавные строки от 2 до 7, чтобы отобрать строки 3 и 6.
Щелкните правой кнопкой мыши нужный столбец и выберите в столбцах кнопку Отметить строки.)
На вкладке Файл нажмите Печать.
В окне Параметры печати выберите параметр Весь лист и нажмите кнопку Печать.
Примечание: Подписи строк и столбцов не будут отсортироваться в режиме предварительного просмотра и распечатки.
Печать книги
Если Excel в Интернете книга имеет только один, можно просто распечатать его. Но если книга с несколькими листами, необходимо перейти на каждый лист, щелкнув его явку и распечатав этот лист.
Не знаете, есть ли в книге скрытые книги? Вот как можно это проверить:
Щелкните правой кнопкой мыши явку любого листа.
При отверке листа становится доступной явка листа. Щелкните ямку листа и напечатайте лист.
Печать таблицы
Иногда нужно напечатать только часть листа, например таблицу. Это можно сделать в Excel в Интернете, если в таблице меньше 10 000 ячеек. Для работы с более чем 10 000 ячеек необходимо использовать Excel классическим приложением.
Чтобы напечатать таблицу:
Чтобы выделить все ячейки в таблице, щелкните первую ячейку и прокрутите до последней.
Если таблица содержит много столбцов, вместо прокрутки щелкните первую ячейку, нажмите и удерживайте клавишу SHIFT, а затем щелкните последнюю ячейку.
На вкладке Файл выберите пункт Печать и нажмите кнопку Печать.
Выберите параметр Текущий фрагмент, если он еще не выбран, и нажмите кнопку Печать.
Если вас устраивает предварительный просмотр, нажмите кнопку Печать. Если нет, закройте его и внесите необходимые изменения.
Печать номеров страниц на листе
Вы не можете вставлять, просматривать и печатать номера страниц в Excel в Интернете. Но если у вас есть классическое приложение Excel, вы можете добавить номера страниц на лист вверху или внизу (в верхний или нижний колонтитул) и распечатать его.
Чтобы открыть книгу Excel кнопку Открыть в, добавьте номера страниц в представлении Разметка страницы, а затем распечатайте лист из Excel. Ниже рассказывается, как это сделать.
Допустим имя принтера сработает и порт не надо будет прописывать.
Как послать активный лист экселя который содержит много разрывов страниц на принтер указанный в макросе отличный от дефолтного и чтобы макрос не менял дефолтный принтер. Просто при нажатии отправлял на прописаный принтер.
Допустим имя принтера сработает и порт не надо будет прописывать.
Как послать активный лист экселя который содержит много разрывов страниц на принтер указанный в макросе отличный от дефолтного и чтобы макрос не менял дефолтный принтер. Просто при нажатии отправлял на прописаный принтер. koyaanisqatsi
Как послать активный лист экселя который содержит много разрывов страниц на принтер указанный в макросе отличный от дефолтного и чтобы макрос не менял дефолтный принтер. Просто при нажатии отправлял на прописаный принтер. Автор - koyaanisqatsi
Дата добавления - 04.02.2015 в 10:04
Sub dd()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer"' Вместо "Microsoft XPS Document Writer" - впишите нужный принтер
End Sub
[/vba]
На первый взгляд - то что нужно
Чтоб вернуть принтер назад:
Application.ActivePrinter = "MyPrinter" ' Вместо MyPrinter вписать нужный принтер.
Sub dd()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer"' Вместо "Microsoft XPS Document Writer" - впишите нужный принтер
End Sub
[/vba]
На первый взгляд - то что нужно
Чтоб вернуть принтер назад:
Application.ActivePrinter = "MyPrinter" ' Вместо MyPrinter вписать нужный принтер.
Иногда все проще чем кажется с первого взгляда.
Sub dd()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer"' Вместо "Microsoft XPS Document Writer" - впишите нужный принтер
End Sub
[/vba]
На первый взгляд - то что нужно
Чтоб вернуть принтер назад:
Application.ActivePrinter = "MyPrinter" ' Вместо MyPrinter вписать нужный принтер.
Взял здесь Автор - SLAVICK
Дата добавления - 04.02.2015 в 11:13
Sub Отправка_листа_на_нужный_принтер()
Dim aPr$
aPr = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer" ' Вместо "Microsoft XPS Document Writer" - впишите нужный принтер
Application.ActivePrinter = aPr ' Возврат активного принтера
End Sub
Sub Отправка_листа_на_нужный_принтер()
Dim aPr$
aPr = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer" ' Вместо "Microsoft XPS Document Writer" - впишите нужный принтер
Application.ActivePrinter = aPr ' Возврат активного принтера
End Sub
Иногда все проще чем кажется с первого взгляда.
Sub Отправка_листа_на_нужный_принтер()
Dim aPr$
aPr = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft XPS Document Writer" ' Вместо "Microsoft XPS Document Writer" - впишите нужный принтер
Application.ActivePrinter = aPr ' Возврат активного принтера
End Sub
К теме наверно уже не относится только непонятно что делать с таким явлением. Я не знаю от чего это зависит и будет ли менятся в дальнейшем. Принтер на который надо послать пока называется так "ZDesigner GC420d (перенаправлено 19)" Меня вот конкретно это смущает " (перенаправлено 19)" вижу в списках часто что за принтером пишется такая зяба и цифры разные. Если для этого номер изменится то по кнопке и печать не пойдет (
К теме наверно уже не относится только непонятно что делать с таким явлением. Я не знаю от чего это зависит и будет ли менятся в дальнейшем. Принтер на который надо послать пока называется так "ZDesigner GC420d (перенаправлено 19)" Меня вот конкретно это смущает " (перенаправлено 19)" вижу в списках часто что за принтером пишется такая зяба и цифры разные. Если для этого номер изменится то по кнопке и печать не пойдет ( koyaanisqatsi
Так воспользуйтесь проверкой наличия принтера в списке доступных.
Вы же в теме спрашивали про список доступных принтеров
Если нужный принтер есть - печатаем, если нет - предлагаем выбрать из списка, или выходим. как то так
[vba]
Sub Отправка_листа_на_нужный_принтер_c_проверкой()
Dim aPr$, s$, AllPrinters As Object, printer As Object, n%, m, primary_printer$, print_name$
primary_printer = "doPDF v9" ' Вместо "doPDF v7" - впишите нужный принтер по умолчанию
aPr = Application.ActivePrinter
Set AllPrinters = GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
'Получаем список принтеров
For Each printer In AllPrinters
n = n + 1
s = s & vbCr & n & ": " & printer.name
If printer.name = primary_printer Then print_name = primary_printer: Exit For ' если primary_printer найден в списке доступных
Next
s = Right(s, Len(s) - 1)
'Если такого принтера не найдено:
If print_name = "" Then
If InStr(1, s, vbCr, vbTextCompare) = 0 Then MsgBox "Error no printers": Exit Sub
m = Split(s, vbCr)
n = InputBox("input Number of printer:" & vbCr & s, "Not found:" & primary_printer, 1)
If n > UBound(m) Or n = 0 Then MsgBox "Error no printers with this number": Exit Sub
print_name = Split(m(n - 1), " ", 2)(1)
End If
'===============================
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=print_name
Application.ActivePrinter = aPr ' Возврат активного принтера
End Sub
Так воспользуйтесь проверкой наличия принтера в списке доступных.
Вы же в теме спрашивали про список доступных принтеров
Если нужный принтер есть - печатаем, если нет - предлагаем выбрать из списка, или выходим. как то так
[vba]
Sub Отправка_листа_на_нужный_принтер_c_проверкой()
Dim aPr$, s$, AllPrinters As Object, printer As Object, n%, m, primary_printer$, print_name$
primary_printer = "doPDF v9" ' Вместо "doPDF v7" - впишите нужный принтер по умолчанию
aPr = Application.ActivePrinter
Set AllPrinters = GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
'Получаем список принтеров
For Each printer In AllPrinters
n = n + 1
s = s & vbCr & n & ": " & printer.name
If printer.name = primary_printer Then print_name = primary_printer: Exit For ' если primary_printer найден в списке доступных
Next
s = Right(s, Len(s) - 1)
'Если такого принтера не найдено:
If print_name = "" Then
If InStr(1, s, vbCr, vbTextCompare) = 0 Then MsgBox "Error no printers": Exit Sub
m = Split(s, vbCr)
n = InputBox("input Number of printer:" & vbCr & s, "Not found:" & primary_printer, 1)
If n > UBound(m) Or n = 0 Then MsgBox "Error no printers with this number": Exit Sub
print_name = Split(m(n - 1), " ", 2)(1)
End If
'===============================
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=print_name
Application.ActivePrinter = aPr ' Возврат активного принтера
End Sub
Иногда все проще чем кажется с первого взгляда.
Sub Отправка_листа_на_нужный_принтер_c_проверкой()
Dim aPr$, s$, AllPrinters As Object, printer As Object, n%, m, primary_printer$, print_name$
primary_printer = "doPDF v9" ' Вместо "doPDF v7" - впишите нужный принтер по умолчанию
aPr = Application.ActivePrinter
Set AllPrinters = GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
'Получаем список принтеров
For Each printer In AllPrinters
n = n + 1
s = s & vbCr & n & ": " & printer.name
If printer.name = primary_printer Then print_name = primary_printer: Exit For ' если primary_printer найден в списке доступных
Next
s = Right(s, Len(s) - 1)
'Если такого принтера не найдено:
If print_name = "" Then
If InStr(1, s, vbCr, vbTextCompare) = 0 Then MsgBox "Error no printers": Exit Sub
m = Split(s, vbCr)
n = InputBox("input Number of printer:" & vbCr & s, "Not found:" & primary_printer, 1)
If n > UBound(m) Or n = 0 Then MsgBox "Error no printers with this number": Exit Sub
print_name = Split(m(n - 1), " ", 2)(1)
End If
'===============================
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=print_name
Application.ActivePrinter = aPr ' Возврат активного принтера
End Sub
Читайте также: