Как выбрать принтер в excel

Подключение к принтеру

​Смотрите также​​ если понадобится в​ это в макросе​ уже эксель его​ В этот момент​ в ячейке если​ списке доступных​ мгновенно. послал одну​ пока другого варианта​ структуры устройства} FDevice​ hDMode); if hDMode​ опция, весьма успешно​ легко, быстро, и​ программированием. Открываем​ управления -> Принтеры​ выскакивает выбор принтера​ оставьте поле​Примечание:​ будущем то и​ написать ?​ выбирает как дефолтный​ в экселе происходит​

​ такого нет то​Next​ этикетку тут же​ у меня нет.​ := StrPas(lpDevice); FDriver​ <> 0 then​ работающая.​ надежно (ну у​принтер Windows​Примнет Excel​ как победить ?​Имя​

​Мы стараемся как​​ хорошо )​Смотрите пример. Поменял​ для данной книги​ что-то типа верстки​ надо выбрать из​s = Right(s,​ могу печатать с​Интернет не богат​

​ := StrPas(lpDriver); FPort​

• ​ begin pDMode :=​

• ​kebot​

• ​ меня по крайней​

Подключение к принтеру

1. ​(см. формулировку в​​- Excel ->​​Application.ActivePrinter = «*Brother*DCP-L5500DN*series*»​​пустым и нажмите​​ можно оперативнее обеспечивать​

   ​Lookas​​ немного код.​ наверно да, тогда​

2. ​ под страницу выделенного​​ списка куда отправить.​​ Len(s) — 1)​ другого листа.​

   

Добавление принтера

​ примерами по этой​ := StrPas(lpPort); end​ GlobalLock(hDMode); if pDMode​: Ну если стоит​

1. ​ мере) меняет свойства​​ начале статьи). Ставим​​ Файл -> Печать​​ ‘​​ кнопку​

2. ​ вас актуальными справочными​​: Добрый день.​​Поменял процедуру для​​ совпадает с тем​​ фрагмента для печати​

   

3. ​ После отправки вернуть​​’Если такого принтера​​Также если дефолтовский​ теме. Ничего найти​​ else begin Printer.PrinterIndex​​ <> nil then​​ задача работать со​​принтера Windows​

   ​ там у принтера​​И там и​Application.Dialogs (xlDialogPrinterSetup)​​Найти​​ материалами на вашем​При написании макроса​​ списка всех принтеров.​​ случаем когда зебра​ «Страница» виртуальная -​ текущий. Несколько сложнее​ не найдено:​

   

4. ​ принтер является сам​ не удалось. Все​ := Printer.PrinterIndex; {Этим​​ begin pDMode^.dmFields :=​​ свойствами принтера, которые​. А нужно изменять​ по умолчанию например​ там можно открыть​

Настройка принтера по умолчанию

​вот всё что​. Вы также можете​ языке. Эта страница​ по печати документов​ А выбор принтера​ выбрана основным для​ этикетка. Так вот​

1. ​ задача (….​​If print_name =​​ Зебра. тоже отклик​

   ​ что попадается, работает​​ мы пытаемся осуществить​​ pDMode^.dmFields or DM_COPIES;​​ по умолчанию (Принтера​​ свойства​​ свойство двухсторонней печати​​ свойства принтера. Но​

   ​ нарыл​ ввести часть имени​ переведена автоматически, поэтому​​ WORD из папки​​ позаимствовал у​​ печати.? Тогда скорее​​ можно даже после​

   ​Почему все так​ «» Then​​ мгновенный получается.​​ со свойствами принтера​​ инициализацию} Printer.GetPrinter(lpDevice, lpDriver,​​ pDMode^.dmCopies := 3;​

   ​ из Пуск ->​​принтера Excel​ (далее по тексту​ это не одно​SLAVICK​ принтера, чтобы найти​ ее текст может​​ столкнулся с тем,​​krosav4ig​​ всего по закрытию​​ выбора этого принтера​

2. ​ сложно ? Потому​​If InStr(1, s,​​Но когда макросу​ Windows, а это​ lpPort, Handle); if​​ GlobalUnlock(hDMode); end; GlobalFree(hDMode);​​ Панель управления ->​

   ​.​​ Duplex). Открываем Excel.​ и тоже. Когда​: Посмотрите тут и​​ его.​​ содержать неточности и​

support.office.com

Диалоговое окно выбора принтера (Макросы/Sub)

​что после печати​​- так проще​ книги возврат дефолтного​ не производить печать,​
​ что имя принтера​ vbCr, vbTextCompare) =​ надо запросить список​ действительно пройденный этап,​ Handle <> 0​
​ end; end;3 запускаю​ Принтеры), то пример​Как нелепое решение​ Смотрим свойства​ Excel открывается, он​


​ тут​В результатах поиска выберите​
​ грамматические ошибки. Для​


​ каждого документа у​ и удобнее. (надеюсь​

​ принтера должно решить​​ а нажимать эскейп​ на который отправлять​

​ 0 Then MsgBox​​ принтеров перевыбрать если​​ не говоря уж​​ then begin FDevMode​ эту функцию перед​ действительно хорош на​ могу предложить следующее:​принтера Excel​ читает настройки принтера,​Elhust​ принтер и нажмите​ нас важно, чтобы​
​ заказчика всплывает окно​​ он не против)​ этот вопрос.​ после чего все​ надо из этого​ «Error no printers»:​ неправильно выбран послать​

excelworld.ru

При открытии файла excel выходит окошко выбора принтера

​ о том, что​ := Ptr(Handle, 0);​ печатью​ все 100% Я​Меняем​(Excel -> Файл​

​ выбранного по умолчанию​​:​ кнопку​ эта статья была​ «печать» с выбором​При открытии книги​

​Тогда я решил​​ этикетки имеют отклик​ файла часто меняется.​ Exit Sub​ на печать. В​ изменять настройки принтера​ FDevice := StrPas(lpDevice);​

​Delphi wdApp.Visible:=false; wdDoc.SaveAs(FNameN);​​ его из двух​принтер Excel​ -> Печать ->​ в Windows, далее​and_evg​ОК​ вам полезна. Просим​ принтера и настройками​ — происходит поиск​ проблему говорю же​ достаточный для нормальной​ А меняется в​m = Split(s,​ принципе до сих​
​ по умолчанию, выгибая​
​ FDriver := StrPas(lpDriver);​ if CheckBox5.Checked=true then​ похожих собирал.​на какой нибудь​
​ Свойства). Видим там​ по тексту просто​, по какой то​. Принтер будет подключен,​ вас уделить пару​ печати.​

Изменение настроек выбранного принтера Excel из VBA

​ введенного принтера и​​ ) Но не​​ работы. Чего не​ названии цыферки после​ vbCr)​
​ пор все тоже​ их «под себя»,​
​ FPort := StrPas(lpPort);​​ begin PrinterSupportsDuplex; wdDoc.PrintOut;​Но вот как​ другой. Изменяем свойства​
​ что Duplex выставлен.​​ принтер Windows. Можно​ не известной мне​
​ а документ Excel​ секунд и сообщить,​И следующий документ​ его назначение активным.​ помню как. Когда​ происходит после одного​ слов перенаправлено. Если​n = Val(InputBox(«input​ очень быстро а​ дело мягко говоря​ end else begin​ end; wdDoc.Close; wdApp.Quit;Ни​ в Excel достучаться​принтера Windows​ Закрываем свойства​ изменять свойства принтера​ причине всё же​ будет напечатан с​ помогла ли она​ не уйдет на​При закрытии книге​ все работало хорошо​ или нескольких повторов​ бы имя принтера​ Number of printer:»​ вот когда этикетка​ нехорошее.​ FDevMode := nil;​
​ одной ОШИБКИ НЕ​ до свойств документа,​
​. Выбираем в Excel​принтера Excel​ Windows и его​ вылазит диалоговое окно​ помощью него.​ вам, с помощью​ печать пока не​ — возврат принтера,​ драйвера были странно​ печати по макросу.​ всегда было одинаково​ & vbCr &​ уже напечатана и​Спасибо за идею.​ raise ECrpe.Create(‘Ошибка загрузки​ ВЫДАЕТ но и​ это пока не​ этот принтер. В​, но не сам​ свойства будут прочитаны​ даже если ставлю​Для быстрой печати настройте​ кнопок внизу страницы.​ будет нажат ОК.​ который был активным​ как-то у зебры​ То-есть скорее всего​ то можно было​ s, «Not found:»​ макросу надо вернуть​ Все работает. Через​
​ драйвера принтера’); end;​ 3 копии как​
​ известно. Я даже​ момент выбора будут​ Excel. Открываем свойства​ Excel-ом при открытии​ … причём бывает​ принтер для использования​ Для удобства также​Не могу сообразить,​ до открытия.​ установлены. В свойства​ не в индексации​
​ бы использовать сохраненное​ & primary_printer, 1))​
​ дефолтовский принтер на​ кнопку на форме​ end; finally StrDispose(lpDevice);​ я хочу не​ начинаю предполагать, что​​ опять прочитаны его​​принтера Windows​ или выборе этого​ так 20 попыток​ по умолчанию. Этот​ приводим ссылку на​ как избежать появления​Пока книга открыта​ принтера почему-то мог​​ дело. А в​​ название в ячейке.​If n >​ место вот тут​ в word или​ StrDispose(lpDriver); StrDispose(lpPort); end;​​ печатает​​ это невозможно. Ну​ уже измененные свойства.​​и убираем Duplex.​​ принтера в Excel.​ не лезет на​​ процесс немного отличается​​ оригинал (на английском​ этого окна,​ — активным будет​ войти только через​​ каком-то другом процессе​​P.S: Заметил еще​
​ UBound(m) Or n​ происходят тормоза секунд​ excell, где прописал​ end;И ДАЛЕЕ ВЫРВАННОЕ​Перепробовал десятки вариантов​​ где то Excel​​Недостатки этого способа:​ Опять открываем совйства​ Если принтер в​ 21 вылезет​
​ в Windows 7,​ языке) .​а распечатать все​​ введенный принтер.​​ выпадающее меню внутри​ разных размеров может​ такую штуку. На​​ = 0 Then​​ на 15. Если​ конкретный принтер.​ ИЗ КОНТЕКСТА​ этого и ему​ все таки хранит​1. Танцы со​​принтера Excel​​ Excel уже выбран,​SLAVICK​​ Windows 8 и​​Установив принтер, подключите его​ вообще без вмешательства​Сделал макросы отдельно​ клика по принтеры.​
​ быть принтеров физического​ том компе очень​
​ MsgBox «Error no​ я печатаю этикеток​​koyaanisqatsi​​Изменение лотка и​ подобного кода но​ их. Причем Excel​ сменой принтеров требуют​, смотрим, а дуплекс​ то изменять свойства​, супер сейчас буду​ Windows 10.​​ к компьютеру. Вы​​ пользователя.​ — чтобы можно​ ХМ чето запутано​
​ размера листа. Не​ долго открывается окно​ printers with this​ 50 то конечно​: Добрый вечер.​ количества копий:​ так и не​ помнит настройки принтера​ задержки и нагружают​ то там остался,​​ принтера Windows уже​​ вникать, ответ выложу​Откройте диалоговое окно​​ можете добавить принтер​​На моем компе​
​ было запускать также​ объяснил. Короче кликал​
​ знаю трудно предположить​​ Устройства и Принтеры.​​ number»: Exit Sub​ я этого могу​​Есть Эксель 2010.​​dmCopies := 2;​ получил результата​ для каждого конкретного​ код нашей программы.​ хоть мы и​
​ бес толку, так​
​ если найду если​Устройства и принтеры​ или подключиться к​ все работает без​
​ и опционно​ на принтер там​ в чем может​ Дома открыл почти​print_name = Split(m(n​ и не заметить​ Есть несколько принтеров​dmDefaultSource := 2;​НАРМАЛЬНОГО ВМЕНЯЕМОГО РУКОВОДСТВА​ документа (книги).​2. Изменения сделанные​ убрали его в​ как Excel их​
​ нет то спрошу​.​​ нему в Excel​​ проблем. Но у​koyaanisqatsi​ есть в менюшке​
​ быть затык.​
​ сразу открылось.​ — 1), «​​ так как все-равно​​ один из них​​ {Нижний лоток}​​ К ДЕЙСТВИЮ НА​
​Не по теме:​ кодом нашей программы​принтере Windows​ уже получил, запомнил,​ ещё раз но​В Windows 10 в поле​ с помощью команды​ меня доступен только​: SLAVICK,​ подменю свойства принтера​На каждой страничке​SLAVICK​ «, 2)(1)​ жду пока принтер​ зебра (usb) один​НУ И ГДЕ​ РУССКОМ И ПРО​Ну может и не​ влияют на все​.​

​ и больше смотреть​​ хочу найти уже​Поиск​ «Печать» в меню​ один принтер.​
​»и нажать эскейп​ она еще на​ есть формула области​:​

​Sheets(«printer»).Cells(1, «a»).Value =​

​ все напечатает. Ну​ hp (usb) и​ ВСТАВИТЬ ЭТО dmCopies​ ДЕЛФИ Я ТАК​

​ по теме, но​​ другие программы, т.к.​Что же это​ туда не будет​При открытии файла excel​введите​ «Файл». После добавления​У тех же​ — excel подвисает​ два принтера разворачивалась​ печати. Не знаю​koyaanisqatsi​
​ print_name​ и соответственно у​ есть еще сетевые​ := 2; ?​И НЕ НАШЕЛ​ большое спасибо за​ мы изменяем общие​ означает? А то,​ до выбора другого​ на одном из​Устройства и принтеры​ устройства можно печатать​ кто будет пользоваться​

​ сразу после этого(без​

​ вернее на два​ может ли это​, На сколько я​End If​ макроса есть время​ hp. На Зебру​А КАКИЕ МОДУЛИ​ если кто нашел​

​ наводку, пошел смотреть.​​ свойства принтера. Можно​ что после того,​ принтера.​ компов выходит окошко​​, а затем щелкните​​ документы, нажимая кнопку​​ доступны 2-3.​​ запуска макроса сразу​​ драйвера один EPL​​ иметь значение ?​ помню — Вы​
​’===============================​ чтобы вернуть дефолтовский​ уходят только этикетки​ НАДО ПОДКЛЮЧИТЬ ?​
​ просьба скинуть ссылку​ Способ печати в​ конечно по завершению​ как Excel получил​Двухсторонняя печать и другие​ выбора принтера а​
​Устройства и принтеры​ «Печать» или клавиши​Ниже код (собранный​ после нажатия эскейп)»​
​ от зебры второй​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СМЕЩ(Кабачки!$A$1;(Кабачки!$F$2-1)*11+1;;11*Кабачки!$F$3;3)​ уже задавали подобный​ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=print_name​ принтер на место.​
​ из одного файла.​
​И САМОЕ ГЛАВНОЕ​
​ВСЕ на английском​ PDF с последующей​ вернуть все обратно,​
​ свойства​
​ свойства принтера:​ на другом такого​.​ CTRL+P.​ с примеров в​Нет не подвисает.​ обычный, если правильно​SLAVICK​ вопрос ранее.(могу ошибаться)​Application.ActivePrinter = aPr​ Но это только​ Делать Зебру дефолтовский​ ДЕЛФИ РУГАЕТСЯ НА​ и какие то​ отправкой на принтер​ но можно и​принтера Windows​Первое что надо​ нет​В Windows 8 перейдите​Примечание:​ сети)))​ Просто проходит секунда​
​ помню название. Причем​: так и есть​Скорее всего это​ ‘ Возврат активного​ по ощущениям. Как​ не камильфо. Очень​procedure TCrpePrinter.GetCurrentPrinter;​ дебри — я​ я тоже продумывал.​
​ забыть, или например​, изменять их уже​ вкурить — в​Troll killer​ на начальный экран,​
​ Во-первых убедитесь, что ваш​Заранее спасибо за​ или пол по​ EPL почему-то не​
​ — а если​ связано с наличием​ принтера​
​ запускать тайпер выполнения​ часто, почти всегда​НАДО -НЕ НАДО​ как человек с​Bagir​ прога завершиться не​
​ бес толку, потому​ Excel и вообще​
​: А кто знает​ введите​
​ принтер был установлен​ помощь.​ переразмещению на листе​
​ удалялся. Удалял а​
​ вручную выбрать принтер?​
​ принтеров подключенных по​
​End Sub​ операций макроса я​
​ сталкиваюсь с проблемой​ ОПИСЫВАТЬ ЭТУ ПРОЦЕДУРУ​ трудом понимающий смысл​: Я дико извиняюсь​ корректно, и возврат​ что Excel помнит​ в Оффисе нет,​ какие там кто​Устройства и принтеры​ с использованием изготовителя​код​ выделенного фрагмента или​ он сразу же​
​ тоже подвисает?​ сети. В первый​Ну и пометочка​
​ не знаю. Курил​ плохого отклика экселя​ ?​ фразы​ но не могли​ сделан не будет.​ свою копию свойств.​ не было и​ настройки то делал​, а затем щелкните​ принтера. Чтобы узнать,​Sub Print_doc_Claims()​ листа с областью​ обратно ставился сам​Кстати, судя по​ раз когда Вы​ к правилу прикладывать​ эту тему но​ после отправки на​КАК ЕЕ ПРАВИЛЬНО​»тут мы Получаем​ ли вы дать​В примере сразу​А теперь проделаем​ наверное не будет​ ё…ть, тут нет​Устройства и принтеры​ как установить принтер​Dim owdDoc As​ печати.​ по себе. Печатал​ этой теме так​ запускаете окно -​ файл. Час потратил​ так и не​ этот принтер при​ ВЫЗВАТЬ ПЕРЕД ПЕЧАТЬЮ​ дескриптор структуры устройства»​ пример​ смотрим модуль​
​ все наоборот. Изменим​ двухсторонней печати. Точно​
​ экстрасенсов​
​.​ локально или в​
​ Object​Спасибо проверю отпишусь.​ я на стандартном​
​ и не решили​ проверяется доступность принтеров​
​ времени чтобы удалить​ дошел мозгом до​
​ помощи макроса который​
​ ?​прошу если можно​РАБОЧЕГО КОДА​
​PrinterDuplex​ свойства​ также как подобного​
​Кадышев денис​В Windows 7 нажмите​ сети, читайте в​Dim owdApp As​
​ Но скорее всего​ драйвере а не​

​У Вас наверно​​ по сети -​​ все лишнее из​​ воплощения этого в​ привел ниже для​ДА И ВООБЩЕ​ покажите понятный алгоритм:​только на​. Там внизу две​принтера Excel​ свойства нет и​: Фишка в том,​ кнопку​ статье Установка принтера.​ Object​ будет работать как​
​ через EPL. Теперь​ много страниц в​ потому и долго.​ файла оставил несколько​ жизнь.​ примера. Макрос выполняет​ ХОТЬ КАК ТО​ЧТОБЫ ПРОГРАММНО ПОМЕНЯТЬ​DELPHI​ процедуры теста. Получение​и посмотрим отразились​ в других программах,​ что в свойствах​Пуск​В этой статье​Dim sFIO As​ надо.​
​ драйвера ставятся в​ документе. Вы долго​ Потом происходит индексация(запоминание​ страниц на страницах​Надеюсь кто-то сталкивался​
​ следующую функцию На​ ПОКОМЕНТИРОВАТЬ КОМАНДЫ В​ НАСТРОЙКИ У ПРИНТЕРА​который оперируя структурой​ и установка дуплекса.​ ли они на​ например в 1С​ файла сохранился какой-то​и выберите пункт​Подключение к принтеру​ String​Для вставки цитаты​ как два отдельных​ в том документе​ системой) доступных принтеров​

​ почти ничего не​ с такой проблемой​ определенном листе в​ ЭТОЙ ПРОЦЕДУРЕ​ НАДО​DEVMODE​

CyberForum.ru

Печать на выбираемый принтер. Зебра. (Макросы/Sub)

​Что нужно:​​ свойствах​
​ или в простом​ размер (А3 например),​Устройства и принтеры​Добавление принтера​Dim oRng As​ есть специальная кнопка.​ принтера прямо в​ работаете — может​ и уже окно​ оставил кроме того​ и знает как​ определенную ячейку сохраняет​МОЖЕТ ХОТЬ ЧТО​1​позволяет изменять настройки​Добиться чтобы пример​принтера Windows​ блокноте. Да проще​ который не поддерживается​.​Настройка принтера по умолчанию​ Range​Посмотрите как у​ Устройствах и Принтерах​ есть смысл возвращать​ открывается быстро.​ что нужно, по​ можно разобраться с​ название последнего выбранного​ ТО ПОНЯТНЕЕ СТАНЕТ………..​2​ принтера​ изменял не свойства​. А и не​ сказать где оно​ принтером по умолчанию.​Примечание:​В Excel выберите пункты​Dim sFolder As​ меня в постах.​ и можно удалить​ дефолтный принтер при​Дома у Вас​ факту самый мизир.​
​ принтерами ?​ принтера. Если оно​Andreiiiii​3…………….​Насколько я понял​принтера Windows​ отобразились, но Excel​ есть. Есть оно​Олег​ Вы также можете открыть​Файл​ String​ Используйте ее.​ EPL. Но может​ закрытии книги? -​ — сетки нет​ Реально мало информации.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ совпадает с одним​
​:​ВОТ КАЗАЛОСЬ БЫ​ из контекста менять​, а свойства​
​ продолжает их помнить.​ например в программе​: Это ошибка возникает​ это окно через​>​Dim sFiles As​Нужно выделить текст,​ и не в​ тогда не будет​ — поэтому быстро.​ Но так и​Sub Печать_на_Zebra()​ из принтеров текущего​kebot​ ВСЕ СКАЗАНО​ настройки принтера windows​принтера Excel​ Ну а это​ FinePrint. Кто юзал,​ из-за того что,​ панель управления. На​Печать​ String​ который Вы хотите​ этом была фишка​ частая смена принтера.​koyaanisqatsi​ не понял почему​Dim aPr$, s$,​ списка то просто​, Все верно. Нужно​То, что вы​ перед печатью документа​.​ означает, что изменение​ тот поймет. А​
​ настройке файла ВИД-СТРАНИЧНЫЙ​ панели управления (в​.​Dim path As​ процитировать и нажать​
​ хотя кто его​
​koyaanisqatsi​
​: SLAVICK, Да вы​ файлвесит 910 килобайт.​ AllPrinters As Object,​ печатает на него.​ работать со свойствами​
​ собираетесь делать, возможно​для всех уже​Давайте сделаем это.​ свойств​ в других программах​
​ РЕЖИМ, стоит (возможно​ виде по категориям)​Совет:​ String​ кнопку​ знает. Может я​
​: SLAVICK, Да возможно​
​ совершенно правы я​ В итоге в​ printer As Object,​
​ Если название принтера​
​ принтера, которые помнит​ с помощью структуры​
​ пройденный этап, а​
​ Любые идеи, будем​принтера Excel​ мы просто вызываем​ настраивали под A3​
​ в категории​ Вы также можете использовать​Set owdApp =​koyaanisqatsi​ какую-то хитрую опцию​ это хорошая идея.​
​ уже однажды мучался​
​ соответствии с правилами​ n%, m, primary_printer$,​
​ изменилось то предлагает​ Excel. С DELPHI​
​ TDevMode, получив к​ все баталии развернуты​
​ пробовать. Очень бы​никак не повлияет​ свойства принтера и​ формат), соответственно принтер​Оборудование и звук​
​ сочетание клавиш CTRL+P.​ CreateObject("Word.Application")​
​: SLAVICK, Да уж.​ тогда нашел в​ Про возврат дефолтного​ с этой проблемой.​ его выложить не​
​ print_name$​ человеку выбрать на​ к сожалению не​ которой доступ, можно​ - как бы​ помогла консультация специалиста​
​ на свойства​ выбираем там режим​ который стоит по​
​щелкните​Щелкните стрелку раскрывающегося списка​
​owdApp.Visible = True​
​ Проблема то была​
​ свойствах драйвера.​
​ принтера по закрытию​ Но как-то ее​ могу. Теоретически могу​
​primary_printer = Sheets("printer").Cells(1,​

​ какой отправлять. Все​ помогу. Совсем его​ делать необходимые вам​ это сделать в​ на тему печати​принтера Winows​ двухсторонней печати. То​ умол. не поддерживает​Просмотр устройств и принтеров​Принтер​sFolder = «Путь​ в одной запятой.​SLAVICK​ книги. А как​ сумел решить и​ на своем сайте​ «a»).Value ‘ Вместо​ как бы очень​ не знаю. Много​ изменения. Структура TDevMode​ уже открытом​ в целом. Где​, и другие программы​ есть все это​

​ формат (возможно А3,​​.​, а затем выберите​ к папке»​
​ ) Просто в​
​: Я имел ввиду​ это в макросе​
​ забыл как(((( Теперь​ его опубликовать как​
​ "doPDF v7" -​
​ просто. НО если​
​ лет сижу на​

​ имеет все необходимые​​документе что бы​ и как хранятся​ не увидят этих​ обрабатывает драйвер принтера,​ зависит какой настроили)​В разделе​ нужный принтер.​Application.ScreenUpdating = False​ изначальном коде забанил​ если выбрать нужный​ написать ?​ по новой мучуюсь.​ ссылка на файл.​ впишите нужный принтер​ я посылаю одну​ VBA. А эта​
​ для настройки принтера​ менять их например​ свойства принтера на​ изменений, что мы​ а не Excel.​ и не может​Принтеры​Если принтера, к которому​Application.DisplayAlerts = False​ строку возврата дефолтного​ принтер вручную, и​Страниц не много​ Попробую все принтеры​ Но только с​
​ по умолчанию​ этикетку то сколько​ тема печати как​ поля и позволяет​ при печати между​ время жизни программы,​ сделали в Excel.​

​ Excel просто отправляет​​ открыть файл и​​щелкните правой кнопкой​​ вы хотите подключиться,​sFiles = Dir(sFolder​ принтера и все​ нажать эскейп -​
​ и не мало,​ удалить вдруг поможет.​ разрешения администраторов. Спасибо.​’ primary_printer =​ думать будет комп​ шило уже. Периодически​ сделать любые настройки​ страницами​ которая отправляет документы​Теперь подумаем что и​ документ на печать​ предлагает выбрать принтер​ мыши нужный принтер​
​ нет в списке,​ & «*.docx*»)​ стало как надо,​

​ excel подвисает сразу​​ но негативный временной​Возможно была бы​krosav4ig​ «ZDesigner GC420d (перенаправлено​ над этой операции​ возвращаюсь к ней​ не обращаясь к​Не могли бы​ на печать. Вот​ когда надо менять:​
​ с настройками, которые​ поддерживающий формат этот.​ и выберите команду​ необходимо добавить его.​Do While sFiles​ а принтер не​ после этого(без запуска​ эффект остался даже​ логика в этих​: если нужно выбирать​ 16)» ‘ Вместо​ весьма актуально а​ снова и снова.​ диалогу настройки принтера.​ вы показать простенький​ например тот же​Правильнее будет предоставить​ уже получил и​Решение:​Использовать по умолчанию​В Excel выберите пункты​ <> «»​ для винды выбирался​ макроса сразу после​ на урезанном файле​ словах. Хотя может​ принтер, я обычно​ «doPDF v7» -​ думать он может​Как временный выход​Вот пример одного​ рабочий пример -​ Блокнот тоже позволит​ изменять свойства​ помнит.​1- открыть, где​.​Файл​path = sFolder​ а именно для​ нажатия эскейп)​ до одной страницы​ быть она и​ таким кодом пользуюсь​ впишите нужный принтер​ секунд 15. Я​ сделал следующее: Всем​ из моих компонентов,​ изменяющий количество копий​ открыть свойства принтера.​
​принтера Windows​Что делать если ну​ открывается выбрать ВИД-Обычный,​Примечание:​>​
​ + sFiles​

​ книги так что​​Цитата​ с этикеткой.​ есть. Но есть​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Print2OtherPrinter()​
​ по умолчанию​ как-то уже решал​ двухсторонним принтерам установил​
​ инкапсулирующий вышесказанную функциональность:​ документа​ Но там не​только пользователю. Пусть​ очень хочется?​ сохранить и передать​ В некоторых версиях Windows​Печать​Set owdDoc =​ когда книга закрывается​

​koyaanisqatsi, 15.01.2016 в​​»а если вручную​ одно но. Дело​Dim aPrn: aPrn​aPr = Application.ActivePrinter​ эту проблему но​ копию их драйвера,​Delphi procedure TCrpePrinter.GetCurrentPrinter;​
​отправленного на принтер​ будет кнопки «Применить».​ он сам установит​Изменить свойства принтера​ кому нужно.​ принтер может быть​.​
​ owdApp.Documents.Open(path)​ всеравно принтер остается​ 00:32, в сообщении​ выбрать принтер? тоже​ в том что​ = ActivePrinter​Set AllPrinters =​ не помню как((((​ добавив к названию​ var lpDevice: PChar;​пробую так​ И все изменения​ те первоначальные свойства​ по средствам вызова​2- Выбрать подходящий​ указан в списке​Щелкните раскрывающееся меню​owdApp.Application.ActivePrinter = «Имя​ как и был​ № 7200?’200px’:»+(this.scrollHeight+5)+’px’);»>Тогда я​ подвисает?» Я же​ как я понимаю​If Application.Dialogs(xlDialogPrinterSetup).Show Then​ GetObject(«winmgmts://./root/CIMV2»).ExecQuery(«SELECT * FROM​Пока что я​ слово Duplex. Установил​ lpDriver: PChar; lpPort:​1 подключаю модули​ будут сразу же​
​ принтеров, с какими​ API функций из​ принтеров, которые поддерживают​Принтеры и факсы​Принтер​ принтера с которого​ до открытия файла.​ решил проблему говорю​ писал что Если​ первый запуск макроса​ _​ Win32_Printer», , 48)​ смог наковырять это​ настройки этой копии​ PChar; Handle: THandle;​ Delphi uses printers,​ забыты при закрытии​ он бы хотел​ VBA, а затем​ этот режим (заранее​.​и выберите пункт​ планирую печатать.»​ Вот только это​ же ) Но​ в меню печать​ запрашивает список принтеров.​ActiveWindow.SelectedSheets.PrintOut Copies:=1​’Получаем список принтеров​ вот: Если я​ на постоянную двухстороннюю​ begin lpDevice :=​ winspool;​ диалога печати.​ видеть их в​ отправить документ на​ его выбрать по​Elhust​Добавить принтер​owdDoc.PrintOut Copies:=1​ не сработает если​ не помню как.Вот​ раскрыть весь список​ И наверно должен​ActivePrinter = aPrn​

​For Each printer​​ открываю этот файл​ печать. А из​ StrAlloc(255); lpDriver :=​2 описываю функцию​Bagir​ других программах. А​ печать. Тут стоит​ умол. перед открытие​
​: Доброго времени суток​​.​owdDoc.Close​ эксель не закрыть​ видите как бывает​ принтеров то ситуация​ происходить индекс но​End Sub​ In AllPrinters​ в экселе и​ своих программ, когда​ StrAlloc(255); lpPort :=​Delphi function PrinterSupportsDuplex:​: ИМХО, следует занести​
​ вод свойства​​ сразу отметить, что​ файла).​ уважаемые специалисты и​В диалоговом окне​sFiles = Dir()​
​ но даладно там​ — а поделились​
​ не поменяется но​ он не происходит.​koyaanisqatsi​n = n + 1​​ перед тем как​​ требуется задать двухсторонник,​ StrAlloc(255); try Printer.GetPrinter(lpDevice,​ Boolean; var Device​
​ в Полезные макросы,​принтера Excel​ Excel и Word​Bagir​
​ просто гуру Excel​Найти принтер​Loop​ будет видно. Главное​
​ бы решением на​ если выбрать зебру​ Но когда я​
​: krosav4ig, Я хотел​s = s​ воспользоватся макросом печати​ просто передаю управление​

​ lpDriver, lpPort, Handle);​​ : array[0..255] of​
​ надстройки и шаблоны​можно «гнуть» как​ ведут себя по​:​Столкнулся с проблемой​
​введите имя принтера​Application.ScreenUpdating = True​ уже есть инструменты​ форуме — можно​ и не нажимать​ захожу в меню​ чтобы эксель запоминал​
​ & vbCr &​ сам захожу в​ временной процедуре, которая​ if Handle <>​
​ char; Driver :​ (ТЕМА РЕОРГАНИЗУЕТСЯ)​
​ угодно под каждую​ разному, но сейчас​Задача: Изменение настроек выбранного​
​ по авто выбору​ в текстовом поле​Application.DisplayAlerts = True​ ) За что​

​ было бы вспомнить​​ печать а просто​ ПЕЧАТЬ не только​ текущий принтер при​ n & «:​ меню ПЕЧАТЬ и​ не изменяет свойства​ 0 then {​ array[0..255] of char;​Замечательная реализация. Я​ конкретную задачу.​ не об этом.​ принтера Excel из​ или игнорированию диалогового​Имя​End Sub​ огромное спасибо !​ и другим может​ выйти то все​ мне надо кликнуть​ запуске макроса печати​ » & printer.Name​ выбираю там нужный​ принтера, а выбирает​ если это не​ Port : array[0..255]​ в свое время​Ну а теперь​Для окончательного усвоения материала,​ VBA.​ окна на выбор​. Нажмите кнопку​китин​

excelworld.ru

Отключение диалогового окна выбора принтера при печати докум (Макросы/Sub)

​ . Тормозит только​​ помогло бы​
​ печатается по макросу​ и развернуть все​ сравнивал сохраненный в​If printer.Name =​
​ притер а потом​ его копию, настроенную​ 0, то мы​ of char; hDMode​ не смог найти​ грустный финал этой​
​ проделаем следующее:​Определимся с условными​ принтера​Найти​
​: Как оформлять сообщения?​ при открытии самого​Цитата​
​ быстро. Я вот​ принтеры чтобы их​ ячейки со списком​
​ primary_printer Then print_name​ могу выйти из​ уже на дуплекс.​ имеем указатель на​ : THandle; PDMode​
​ готового решения.​ статьи. Увы это​Забудем на время​
​ названиями:​у меня много​.​
​китин​ файла. Но это​
​koyaanisqatsi, 15.01.2016 в​
​ только не знаю​
​ увидеть в диалоговом​ принтеров если такой​
​ = primary_printer: Exit​ этого меню и​
​Знаю, извращение, и​ структуру устройства} begin​
​ : PDEVMODE; begin​Не по теме:​
​ не урок, а​ про VBA, API​
​Принтер Windows​ файлов в папке​
​Совет:​:​
​ можно пережить. Ваш​ 00:32, в сообщении​
​ если через эскейп​
​ окне, но и​ есть то отправлял​
​ For ‘ если​
​ запустить макрос то​
​ работать будет только​ FDevMode := Ptr(Handle,​
​ Printer.PrinterIndex := Printer.PrinterIndex;​Двусторонняя печать есть в​
​ простой вопрос. Есть​ и вообще все​
​- Принтера из​ и во многих​
​ Чтобы найти все принтеры,​Удалено администрацией​ код тоже сохранил​
​ № 7200?’200px’:»+(this.scrollHeight+5)+’px’);»>А как​
​ выходишь не печатая​
​ именно выбрать Зебру.​
​ бы на сохраненный​
​ primary_printer найден в​
​ отклик происходит уже​
​ у себя. Но​

​ 0); {Получаем дескриптор​​ Printer.GetPrinter(Device, Driver, Port,​

​ Adobe Reader-е, как​​ пример VBA который​​ что связано с​

excelworld.ru

​ Пуск -> Панель​

Хитрости »

14 Январь 2017              15926 просмотров

Основная задача кодов Visual Basic for Applications — автоматизация. И задачи зачастую бывают самые разные. Одна из таких задач — печать листов или ячеек по условию или в цикле. Сама по себе отправка на печать листа или диапазона не представляет сложностей, это легко можно записать макрорекордером и вставить в свой код. Выглядеть это будет примерно так:

Sub Макрос1()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Но зачастую необходимо не просто отправить на печать, а еще и на определенный принтер. При этом не просто указать другой принтер, а дать возможность выбрать принтер пользователю, не задавая его жестко в коде. Ведь у разных пользователей могут быть разные принтеры подключены. Часто такое необходимо при печати этикеток или других специфических материалов(открытки, буклеты и т.п.) потому, что для них как правило используют не стандартный офисный черно-белый лазерный принтер, а некий более продвинутый с возможностью заправки специфических листов. Как видно из кода выше — там нет и малейшего намека на указание принтера. Хотя в принципе параметр такой есть — ActivePrinter.
На самом деле есть несколько вариантов выбора принтера, но я покажу самый надежный (как оказалось) и в тоже время самый простой — через стандартный диалог выбора принтеров:

Sub ShowPrinters()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

Этот диалог после вызова автоматически назначает выбранный в нем принтер принтером по умолчанию для печати. Т.е. теперь чтобы мы ни отправили на печать будет отправлено на этот принтер. Все бы хорошо, но тут появляется небольшая проблема: в этом случае у нас не только из кодов будет идти печать на этот принтер, но и при обычной печати. А это нам не надо, ведь тогда даже 100500 каких-то «левых» документов вместо печати на лазерном черно-белом будут распечатаны на офигительном цветном. За такое можно и премии лишиться Конечно, можно каждый раз перед ручной печатью выставлять нужный принтер. Но во-первых об этом можно просто забыть, а во-вторых — как только изменим один раз, нам придется перед печатью из кода опять менять принтер. Замкнутый круг и автоматизацией вообще не пахнет.
Поэтому лучше чуть-чуть все усложнить и при каждой печати из кода VBA назначать нужный принтер. Я заготовил универсальный код, который отправляет на печать либо активный лист, либо указанный диапазон ячеек именно на выбранный для печати из VBA принтер. При желании и умении код можно доработать для печати листов и диапазонов в цикле. Но основной упор сделан на выбор принтера для печати только из кода. Т.е. при первом запуске кода печати будет предложено выбрать принтер:

Если принтер будет выбран и нажата кнопка Ок, то принтер будет запомнен и сразу после этого сброшен и установлен заново тот принтер, который был изначально установлен для печати. Однако при печати из кода будет использован именно выбранный принтер, а не тот, который будет применяться при ручной печати.
Т.е. при ручной печати будет один принтер, а при печати из кода — другой.

Option Explicit
'глобальная переменная для хранения значения выбранного принтера при печати из VBA
Public sNowPrinter As String
'---------------------------------------------------------------------------------------
' Procedure : ChangePrinter
' Author    : The_Prist(Щербаков Дмитрий)
' Purpose   : Функция выбора принтера для печати из кода VBA
'---------------------------------------------------------------------------------------
Sub ChangePrinter()
    sNowPrinter = "Set"
    Dim v, s
    'запоминаем текущий принтер, чтобы можно было вернуть его после выбора
    s = Application.ActivePrinter
    'показываем окно выбора принтера
    v = Application.Dialogs(xlDialogPrinterSetup).Show
    'если принтер был выбран - запоминаем выбор
    If v = True Then
        sNowPrinter = Application.ActivePrinter
    End If
    'возвращаем принтер по умолчанию, чтобы стандартная печать шла на него
    Application.ActivePrinter = s
End Sub
'---------------------------------------------------------------------------------------
' Procedure : DoPrint
' Author    : The_Prist(Щербаков Дмитрий)
' Purpose   : Функция печати указанного кол-ва копий указанного диапазона ячеек
'             rr       - ссылка на диапазон ячеек - Range("A1:B10")
'                        если не указан - на печать выводится весь активный лист
'             lCopies  - целое число, указывающее сколько копий выводить на печать
'                        если не указан - на печать выводится одна копия
'---------------------------------------------------------------------------------------
Function DoPrint(Optional rr As Range = Nothing, Optional lCopies As Long = 1)
    Dim sActPrinter As String
    'проверяем, установлен ли ранее принтер для печати
    If sNowPrinter = "" Or sNowPrinter = "Set" Then
        'если нет - вызываем процедуру выбора принтера
        Call ChangePrinter
        'если выбранный принтер не был выбран(нажали Отмена), то используем текущий
        If sNowPrinter = "Set" Then
            If MsgBox("Не выбран принтер для печати. Использовать установленный в качестве активного?", vbCritical + vbYesNo, "www.excel-vba.ru") = vbNo Then
                Exit Function
            End If
            sActPrinter = Application.ActivePrinter
        Else
            sActPrinter = sNowPrinter 'получаем выбранный в окне принтер
        End If
    End If
 
    If rr Is Nothing Then
        'печатаем активный лист на выбранном принтере
        ActiveSheet.PrintOut Copies:=lCopies, ActivePrinter:=sActPrinter
    Else
        'печатаем указанный диапазон ячеек на выбранном принтере
        rr.PrintOut Copies:=lCopies, ActivePrinter:=sActPrinter
    End If
End Function

Функция ChangePrinter показывает диалог выбора принтера и назначает выбранный принтер принтером по умолчанию, запоминает выбор и отменяет его, возвращая принтер до вызова функции.
Функция DoPrint непосредственно отправляет на печать именно на выбранный принтер. Если принтер ранее не был выбран, то сначала будет вызвана функция ChangePrinter.
При этом функция DoPrint имеет два необязательных аргумента:

В процедуре ниже на печать выводится выделенный диапазон с количеством печатных копий листов — 2.

Sub TestPrint()
    DoPrint Selection, 2
End Sub

Так же в функции DoPrint можно заменить ActiveSheet на конкретный лист. Например: Workbooks(«Книга2.xlsx»).Sheets(«Лист3»). Книга Книга2.xlsx должна быть открыта и должна содержать лист с именем Лист3.

В приложенном к статье файле так же есть пример печати по очереди каждой из этикеток, расположенных в два ряда:

Хотя практичнее автоматически заполнять только один шаблон этикетки в цикле разными данными и его отправлять на печать.

Скачать пример:

  Выбор принтера (74,5 KiB, 1 537 скачиваний)

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Зачастую конечной целью работы над документом Excel является его распечатка. Но, к сожалению, не каждый пользователь знает, как выполнить данную процедуру, особенно если нужно вывести на печать не все содержимое книги, а только определенные страницы. Давайте разберемся, как производить распечатку документа в программе Excel.

Читайте также: Печать документов в MS Word

Вывод документа на принтер

Прежде, чем приступать к распечатке любого документа, следует убедиться, что принтер правильно подключен к вашему компьютеру и произведена необходимая его настройка в операционной системе Windows. Кроме того, наименование устройства, на котором вы планируете производить печать должно отображаться через интерфейс Эксель. Для того, чтобы убедиться в правильности подключения и настройки, перейдите во вкладку «Файл». Далее переместитесь в раздел «Печать». В центральной части открывшегося окна в блоке «Принтер» должно отображаться наименование того устройства, на котором вы планируете распечатывать документы.

Но даже, если устройство правильно отображается, это ещё не гарантирует, что оно подключено. Данный факт означает только то, что оно правильно настроено в программе. Поэтому перед выполнением распечатки убедитесь, что принтер включен в сеть и подсоединен к компьютеру посредством кабеля или беспроводных сетей.

Способ 1: печать всего документа

После того, как подключение проверено, можно приступать к распечатке содержимого файла Excel. Проще всего распечатать документ целиком. С этого мы и начнем.

1. Переходим во вкладку «Файл».



2. Далее перемещаемся в раздел «Печать», нажав на соответствующий пункт в левом меню открывшегося окна.



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



4. После этого перемещаемся к блоку настроек, расположенному ниже. Так как нам нужно распечатать все содержимое файла, кликаем по первому полю и выбираем из открывшегося списка пункт «Напечатать всю книгу».



5. В следующем поле можно выбрать, какой именно тип распечатки производить:
   • Односторонняя печать;
   • Двусторонняя с переворотом относительно длинного края;
   • Двусторонняя с переворотом относительно короткого края.

   Тут уже нужно производить выбор в соответствии с конкретными целями, но по умолчанию установлен первый вариант.



6. В следующем пункте предстоит выбрать, разбирать нам по копиям печатаемый материал или нет. В первом случае, если вы распечатаете несколько копий одного и того же документа, сразу на печать пойдут все листы по порядку: первой копии, затем второй и т.д. Во втором случае принтер распечатает сразу все экземпляры первого листа всех копий, потом второй и т.д. Этот параметр особенно пригодится в том случае, если пользователь печатает много копий документа, и значительно облегчит сортировку его элементов. Если же вы распечатываете одну копию, то данная настройка абсолютно неважна для пользователя.



7. Очень важной настройкой является «Ориентация». В этом поле определяется, в какой ориентации будет производиться печать: в книжной или в альбомной. В первом случае высота листа больше её ширины. При альбомной ориентации ширина листа больше высоты.



8. В следующем поле определяется размер печатаемого листа. Выбор данного критерия, в первую очередь, зависит от размера бумаги и от возможностей принтера. В большинстве случаев используют формат A4. Он и выставлен в настройках по умолчанию. Но иногда приходится использовать и другие доступные размеры.





9. В следующем поле можно установить размер полей. По умолчанию применяется значение «Обычные поля». При этом виде настроек размер верхнего и нижнего полей составляет 1,91 см, правого и левого – 1,78 см. Кроме того, существует возможность установки следующих видов размеров полей:
   • Широкие;
   • Узкие;
   • Последнее пользовательское значение.

   Также, размер поля можно задать вручную, как это сделать мы поговорим ниже.



10. В следующем поле настраивается масштабирование листа. Возможны такие варианты выбора этого параметра:
    • Текущий (распечатка листов с фактическим размером) – по умолчанию;
    • Вписать лист на одну страницу;
    • Вписать все столбцы на одну страницу;
    • Вписать все строки на одну страницу.



11. Кроме того, если вы хотите установить масштаб вручную, задав конкретную величину, а, не пользуясь вышеуказанными установками, то можно перейти по пункту «Параметры настраиваемого масштабирования».
    

    Как альтернативный вариант можно нажать на надпись «Параметры страницы», которая размещена в самом низу в конце перечня полей настроек.



12. При любом из вышеуказанных действий происходит переход в окно, именуемом «Параметры страницы». Если в вышеуказанных настройках можно было производить выбор между предустановленными вариантами настроек, то тут пользователь имеет возможность сам настроить отображение документа, как он захочет.

    В первой вкладке данного окна, которая называется «Страница» можно настроить масштаб, указав его точную величину в процентах, ориентацию (книжная или альбомная), размер бумаги и качество печати (по умолчанию 600 точек на дюйм).



13. Во вкладке «Поля» производится точная настройка величины полей. Помните, мы об этой возможности говорили чуть выше. Тут можно задать точные, выраженные в абсолютных величинах, параметры каждого поля. Кроме того, тут же можно установить горизонтальное или вертикальное центрирование.



14. Во вкладке «Колонтитулы» можно создать колонтитулы и настроить их расположение.



15. Во вкладке «Лист» можно настроить отображение сквозных строк, то есть, таких строк, которые будут распечатываться на каждом листе в определенном месте. Кроме того, тут же можно настроить последовательность вывода листов на принтер. Имеется также возможность вывести на печать саму сетку листа, которая по умолчанию не распечатывается, заголовки строк и столбцов, и некоторые другие элементы.



16. После того, как в окне «Параметры страницы» завершены все настройки, не забываем нажать на кнопку «OK» в его нижней части для того, чтобы сохранить их для распечатки.



17. Возвращаемся в раздел «Печать» вкладки «Файл». В правой части открывшегося окна расположена область предпросмотра. В ней отображается та часть документа, которая выводится на принтер. По умолчанию, если вы не производили никаких дополнительных изменений в настройках, на печать должно выводиться все содержимое файла, а значит, в области предпросмотра должен отображаться весь документ. Чтобы убедиться в этом, можно прокрутить полосу прокрутки.



18. После того, как те настройки, которые вы считаете нужным установить, указаны, жмем на кнопку «Печать», расположенную в одноименном разделе вкладки «Файл».



19. После этого все содержимое файла будет распечатано на принтере.

Существует и альтернативный вариант настроек печати. Его можно осуществить, перейдя во вкладку «Разметка страницы». Элементы управления отображением печати размещены в блоке инструментов «Параметры страницы». Как видим, они практически те же, что и во вкладке «Файл» и управляются по таким же принципам.

Для перехода в окно «Параметры страницы» нужно нажать на пиктограмму в виде косой стрелки в нижнем правом углу одноименного блока.

После этого будет запущено уже знакомое нам окно параметров, в котором можно производить действия по вышеуказанному алгоритму.

Способ 2: распечатка диапазона указанных страниц

Выше мы рассмотрели, как настроить печать книги в целом, а теперь давайте рассмотрим, как это сделать для отдельных элементов, если мы не хотим печатать весь документ.

1. Прежде всего, нам нужно определить, какие именно страницы по счету нужно распечатать. Для выполнения данной задачи следует перейти в страничный режим. Это можно сделать, кликнув по пиктограмме «Страничный», которая размещена на строке состояния в правой её части.
   

   Также существует другой вариант перехода. Для этого нужно переместиться во вкладку «Вид». Далее кликаем по кнопке «Страничный режим», которая размещена на ленте в блоке настроек «Режимы просмотра книги».



2. После этого запускается страничный режим просмотра документа. Как видим, в нем листы отделены друг от друга пунктирными границами, а их нумерация видна на фоне документа. Теперь нужно запомнить номера тех страниц, которые мы собираемся распечатать.



3. Как и в предыдущий раз, перемещаемся во вкладку «Файл». Потом переходим в раздел «Печать».



4. В настройках имеется два поля «Страницы». В первом поле указываем первую страницу того диапазона, который хотим распечатать, а во втором – последнюю.
   

   Если вам нужно распечатать только одну страницу, то в обоих полях нужно указать её номер.



5. После этого выполняем при необходимости все те настройки, о которых шел разговор при использовании Способа 1. Далее жмем на кнопку «Печать».



6. После этого принтер выполняет печать указанного диапазона страниц или одиночного листа, заданных в настройках.

Способ 3: печать отдельных страниц

Но что делать, если нужно распечатать не один диапазон, а несколько диапазонов страниц или несколько отдельных листов? Если в Ворде листы и диапазоны можно задать через запятую, то в Экселе такого варианта не существует. Но все-таки выход из данной ситуации есть, и он заключается в инструменте, который называется «Область печати».

1. Переходим в страничный режим работы Excel одним из тех способов, о которых шел разговор выше. Далее зажимаем левую кнопку мыши и выделяем диапазоны тех страниц, которые собираемся распечатать. Если нужно выделить большой диапазон, то кликаем сразу по его верхнему элементу (ячейке), затем переходим к последней ячейке диапазона и кликаем по ней левой кнопкой мыши с зажатой клавишей Shift. Таким способом можно выделить сразу несколько последовательно идущих страниц. Если мы кроме этого хотим распечатать и ряд других диапазонов или листов, то производим выделение нужных листов с зажатой кнопкой Ctrl. Таким образом, все нужные элементы будут выделены.



2. После этого перемещаемся во вкладку «Разметка страницы». В блоке инструментов «Параметры страницы» на ленте кликаем по кнопке «Область печати». Затем появляется небольшое меню. Выбираем в нем пункт «Задать».



3. После этого действия опять переходим во вкладку «Файл».



4. Далее перемещаемся в раздел «Печать».



5. В настройках в соответствующем поле выбираем пункт «Напечатать выделенный фрагмент».



6. При необходимости производим и другие настройки, которые подробно описаны в Способе 1. После этого в области предпросмотра смотрим, какие именно листы выводятся на печать. Там должны присутствовать только те фрагменты, которые нами были выделены на первом шаге данного способа.



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



8. После этого действия выделенные листы должны быть распечатаны на подключенном к компьютеру принтере.

Кстати, этим же способом с помощью установки области выделения можно производить печать не только отдельных листов, но и отдельных диапазонов ячеек или таблиц внутри листа. Принцип выделения при этом остается тем же, что и в описанной выше ситуации.

Урок: Как задать область печати в Excel 2010

Как видим, для того, чтобы настроить печать нужных элементов в Экселе в том виде, в котором вы того желаете, нужно немного повозиться. Полбеды, если нужно распечатать весь документ, но если требуется произвести печать отдельных его элементов (диапазонов, листов и т.д.), то начинаются трудности. Впрочем, если вы знакомы с правилами распечатки документов в этом табличном процессоре, то сможете с успехом решить поставленную задачу. Ну, а о способах решения, в частности при помощи установки области печати, как раз и рассказывает данная статья.