Excel принтер по умолчанию - Word и Excel - помощь в работе с программами

Содержание

1 Windows 7
2 Windows 8
3 Windows 10
4 Ориентация страницы в Excel
5 Как изменить размер страницы в Эксель
6 Настраиваем поля в Excel
7 Добавляем колонтитулы в Excel
8 Вставляем разрыв страницы в Excel
9 Добавляем заголовок в Excel
10 Настраиваем в Excel масштаб печати
11 Сокрытие перед печатью
12 Представления в Excel

Подскажите, пожалуйста, можно ли сделать так, чтобы при нажатии на кнопочку производился выбор принтера по умолчанию? То есть один принтер менялся на, скажем, pdf-factory-pro, и наоборот? Просто есть необходимость печатать определенную область документа (в примере — «Print») либо на принтере (если закачик рядом сидит, либо отправлять ему в pdf-е по мылу).

Печать сейчас осуществляется макросом:

Sub Печать_наша() Application.Goto Reference:="Print" With ActiveSheet.PageSetup .PrintQuality = 600 .Orientation = xlPortrait .PaperSize = xlPaperA4 End With Selection.PrintOut Copies:=1, Preview:=False, Collate:=True End Sub

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

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

Windows 7

Если вы не хотите постоянно при печати выбирать нужное устройство и для решения данной задачи решили использовать по умолчанию один из принтеров, в таком случае в первую очередь кликните на меню «Пуск» и перейдите в панель управления ПК.
В окне с представленными разделами найдите «Оборудование и звук», после чего кликните на «Просмотр устройств и принтеров». Если же в вашей операционной системе Windows 7 используется режим под названием «Мелкие значки», в таком случае откройте раздел «Устройства и принтеры».
В новом окне, где представлен список устройств, подключенных к ПК, вам следует найти нужный девайс и дважды кликнуть по нему. Чтобы поставить его «по умолчанию», откройте «Принтер» и поставьте галочку рядом с пунктом, подразумевающим использование текущего девайса в качества устройства по умолчанию.
Если остальные принтеры вам не нужны, т.к. используемый на текущий момент времени девайс вполне подходит для решения всех необходимых задач, то просто удалите все остальные устройства. Для этой цели в списке принтеров кликайте правой кнопкой мышки по каждому устройства и выбирайте среди контекстного меню пункт «Удалить», после чего подтверждайте сделанный выбор нажатием на «ОК».

Windows 8

Если на вашем ПК установлена не ОС Windows 7, а более новая версия — Windows 8, то для решения задачи, связанной с тем, как сделать принтер по умолчанию выполните следующие действия:

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

Windows 10

Если у вас не установлена ни одна из вышеназванных ОС, т.к. ваш персональный компьютер работает под управлением системы Windows 10, то ознакомьтесь со следующей инструкцией:

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

Еще один вариант решения вышеописанной задачи в Windows 10 заключается в том, чтобы сделать принтером по умолчанию тот девайс, которые был использован последним:

Откройте меню «Пуск» и нажмите на «Параметры».
В разделе «Устройства» найдите параметр «Сделать последний использованный…» и включите для него значение «Вкл.».
Сохраните сделанное изменение и попробуйте любой документ.

Оценка статьи:

(

оценок, среднее:

из 5)

Как установить принтер по умолчанию Ссылка на основную публикацию

Дата: 15 декабря 2015 Категория: Excel Поделиться, добавить в закладки или статью

Когда вы создаете документы для печати (например, отчеты, счета, накладные и т.д.) – важно настроить их так, чтобы распечатанный лист выглядел корректно, удобно и логично. Иначе, распечатанный документ будет неудобен для чтения и результаты Вашей работы оставят неприятные впечатления. Какие можно делать настройки рабочего листа – я расскажу в этом посте.

Большинство настроек можно сделать в окне Параметры страницы. Его вызывают, нажав на пиктограмму в углу ленточного блока Разметка страницы – Параметры страницы.

Пиктограмма «Параметры страницы»

В зависимости от формы данных на листе, вы можете выбирать книжную (вертикальную) или альбомную (горизонтальную) ориентацию. Сделать это можно такими способами:

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

Каждый из перечисленных способов изменит ориентацию активного листа, или всех выделенных листов.

Как изменить размер страницы в Эксель

Хотя большинство офисных принтеров печатают на листах А4 (21,59 см х 27,94 см), вам может понадобиться изменить размер печатного листа. Например, вы готовите презентацию на листе А1, или печатаете фирменные конверты соответствующих размеров. Чтобы изменить размеры листа, можно:

Воспользоваться командой Разметка страница – Параметры страницы – Размер.
Изменение размера листа в Excel
Выполнить Файл – Печать и выбрать нужный размер
В окне Параметры страницы выбрать из списка Размер бумаги

Настраиваем поля в Excel

Поля в Эксель – это пустые области страницы между краем листа и границей ячеек. Чтобы настроить поля, есть несколько способов:

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

Добавляем колонтитулы в Excel

Колонтитулы – это информационные области сверху и снизу страницы на полях. Колонтитулы повторяются на каждой печатной странице, в них записывают вспомогательную информацию: номер страницы, имя автора, название документа и др. Сверху и снизу страницы есть по три поля для колонтитулов (левое, центральное и правое).

Колонтитулы в Майкрософт Эксель

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

Так, можно вставить автоматический колонтитул, который будет указывать номер текущей страницы, количество страниц на листе, имя файла и др. Чтобы вставить автоматический элемент – выберите его на ленте: Работа с колонитулами – Конструктор – Элементы колонтитулов. Эти элементы можно сочетать друг с другом и с произвольным текстом. Для вставки — установите курсор в поле колонтитула и кликните на иконку в группе Элементы колонтитулов (см. рисунок выше).

На вкладке Конструктор можно задать дополнительные параметры для колонитулов:

Особый колонтитул для первой страницы – колонитулы первой страницы не повторяются на остальных страницах. Удобно, если первая страница — титульная.
Разные колонтитулы для четных и нечетных страниц – подходит для нумерации страниц при печати буклета
Изменять масштаб вместе с документом – установка включена по умолчанию, колонтитулы масштабируются так же, как и вся страница. Рекомендую держать этот параметр включённым, чтобы обеспечить целостность компоновки листа
Выровнять относительно полей страницы – левый и правый колонтитулы выровнены по соответствующим границам полей. Этот параметр так же установлен по умолчанию, изменять его нет особого смысла.

Колонтитулы – удобный инструмент для придания последнего штриха своей работе. Наличие качественных, информативных колонтитулов – это признак профессионализма исполнителя. Колонтитулы приближают верстку документа к издательскому виду. Это действительно легко и очень эффективно.

Вставляем разрыв страницы в Excel

Если вам нужно в каком-то месте листа вставить принудительный разрыв страницы, установите курсор в ячейку справа ниже места разрыва и выполните ленточную команду Разметка страницы – Параметры страницы – Разрывы – Вставить разрыв страницы. Например, чтобы вставить разрыв после столбца D и строки №10, выделите ячейку E11 и выполняйте приведенную команду.

Вставка разрыва страницы

Чтобы удалить разрыв – есть обратная команда: Разметка страницы – Параметры страницы – Разрывы – Удалить разрыв страницы. Чтобы удалить все разрывы, созданные вручную — команда Разметка страницы – Параметры страницы – Разрывы – Сброс разрывов страниц.

После вставки разрыва, на листе появятся разделители страниц. В режиме страничного просмотра они принимают вид синих рамок, перетаскивая которые, можно изменять печатные границы страниц.

Добавляем заголовок в Excel

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

Чтобы ячейки повторялись на каждой печатной странице, выполните ленточную команду Разметка страницы – Параметры страницы – Печатать заголовки. Откроется окно Параметры страницы, вкладка Лист. В этом окне, в полях Сквозные строки и Сквозные столбцы укажите ссылки на строки и столбцы для повторения на каждом листе. Учтите, выделенные ячейки не будут физически присутствовать на каждой странице, а только повторятся при печати.

Добавление заголовков в Эксель

Настраиваем в Excel масштаб печати

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

Для изменения масштаба печати, используйте ленточные команды Разметка страницы – Вписать. Можно задать масштаб вручную с помощью счетчика Масштаб, но гораздо легче и быстрее использовать раскрывающиеся списки Ширина и Высота. Благодаря им, вы можете задать какое количество листов по ширине и высоте у вас будет. Например, чтобы вписать данные в одну страницу по ширине, установите: Ширина – 1 страница; Высота – Авто.

Масштаб печати в Эксель

Сокрытие перед печатью

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

Еще можно сделать непечатаемыми объекты. Для этого выделите объект (например, диаграмму или фигуру) и нажмите правой кнопкой мыши на его рамке. В контекстном меню выберите Формат…. В открывшемся диалоговом окне в группе Свойства снимите флажок Выводить объект на печать.

Настройка печати объектов Эксель

Представления в Excel

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

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

Режим отображения рабочего листа
Настройки рабочих листов для печати
Скрытые строки и столбцы
Выделенные ячейки и положение курсора
Размеры и положение окон
Закрепленные области

После того, как вы сделаете все перечисленные настройки, выполните команду Вид – Режимы просмотра книги – Представления – Добавить. В открывшемся окне Добавление представления задайте имя нового представления и сделайте выбор в предложенных уточнениях. Нажмите ОК, и представление создано!

Добавление представления в Эксель

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

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

Друзья, если вам остались непонятны какие-то детали по материалам поста, задавайте вопросы в комментариях. И не забудьте подписаться на обновления, становитесь профессионалами вместе с сайтом OfficeЛЕГКО.com! Всегда Ваш, Александр Томм

Поделиться, добавить в закладки или статью

Источник

Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше

Установив принтер, подключите его к компьютеру. Вы можете добавить принтер или подключиться к нему в Excel с помощью команды «Печать» в меню «Файл». После добавления устройства можно печатать документы, нажимая кнопку «Печать» или клавиши CTRL+P.

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

В этой статье

Подключение к принтеру
Добавление принтера
Настройка принтера по умолчанию

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

В Excel выберите пункты Файл > Печать.

Совет: Вы также можете использовать сочетание клавиш CTRL+P.
Щелкните стрелку раскрывающегося списка Принтер, а затем выберите нужный принтер.

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

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

В Excel выберите пункты Файл > Печать.
Щелкните раскрывающееся меню Принтер и выберите пункт Добавить принтер.
В диалоговом окне Найти принтер введите имя принтера в текстовом поле Имя. Нажмите кнопку Найти.

Совет: Чтобы найти все принтеры, оставьте поле Имя пустым и нажмите кнопку Найти. Вы также можете ввести часть имени принтера, чтобы найти его.
В результатах поиска выберите принтер и нажмите кнопку ОК. Принтер будет подключен, а документ Excel будет напечатан с помощью него.

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

Для быстрой печати настройте принтер для использования по умолчанию. Этот процесс немного отличается в Windows 7, Windows 8 и Windows 10.

Откройте диалоговое окно Устройства и принтеры.

В Windows 10 в поле Поиск введите Устройства и принтеры, а затем щелкните Устройства и принтеры.

В Windows 8 перейдите на начальный экран, введите Устройства и принтеры, а затем щелкните Устройства и принтеры.

В Windows 7 нажмите кнопку Пуск и выберите пункт Устройства и принтеры.

Примечание: Вы также можете открыть это окно через панель управления. На панели управления (в виде по категориям) в категории Оборудование и звук щелкните Просмотр устройств и принтеров.
В разделе Принтеры щелкните правой кнопкой мыши нужный принтер и выберите команду Использовать по умолчанию.

Примечание: В некоторых версиях Windows принтер может быть указан в списке Принтеры и факсы.

См. также

Кнопка «Печать» и некоторые параметры принтера недоступны

Устранение неполадок с принтеромhttp://windows.microsoft.com/en-US/windows-vista/Troubleshoot-printer-problems

Устранение неполадок

Нужна дополнительная помощь?

Источник

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

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

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

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

:= StrPas(lpDriver); FPort

begin pDMode :=
kebot
меня по крайней

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

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

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

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

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

мере) меняет свойства начале статьи). Ставим Файл -> Печать ‘ кнопку
вас актуальными справочными: Добрый день.Поменял процедуру для совпадает с тем фрагмента для печати
После отправки вернуть’Если такого принтераТакже если дефолтовский теме. Ничего найти else begin Printer.PrinterIndex <> nil then задача работать сопринтера Windows

 там у принтераИ там иApplication.Dialogs (xlDialogPrinterSetup)Найти материалами на вашемПри написании макроса списка всех принтеров. случаем когда зебра «Страница» виртуальная - текущий. Несколько сложнее не найдено:
принтер является сам не удалось. Все := Printer.PrinterIndex; {Этим begin pDMode^.dmFields := свойствами принтера, которые. А нужно изменять по умолчанию например там можно открыть

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

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

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

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

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

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

 из Пуск ->принтера Excel (далее по тексту это не одноSLAVICK принтера, чтобы найти ее текст может столкнулся с тем,krosav4ig всего по закрытию выбора этого принтера
сложно ? Потому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 меня в постах. и можно удалить дефолтный принтер приДома у Вас факту самый мизир.
принтерами ? принтера. Если оноAndreiiiii3…………….Насколько я понялпринтера 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: aPrnaPr = Application.ActivePrinter эту проблему но копию их драйвера,Delphi procedure TCrpePrinter.GetCurrentPrinter;
отправленного на принтер будет кнопки «Применить». он сам установитИзменить свойства принтера кому нужно. принтер может быть.
owdApp.Documents.Open(path) всеравно принтер остается 00:32, в сообщении выбрать принтер? тоже в том что = ActivePrinterSet 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()
но даладно там — а поделились
не поменяется но он не происходит.koyaanisqatsin = n + 1 перед тем как требуется задать двухсторонник, StrAlloc(255); try Printer.GetPrinter(lpDevice, Boolean; var Device
в Полезные макросы,принтера Excel Excel и WordBagir
просто гуру 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

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

Источник

Excel. Настройки принтера. Двухсторонняя печать

Bagir

Дата: Среда, 10.10.2012, 00:06 |
Сообщение № 1

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

Определимся с условными названиями:
Принтер Windows — Принтера из Пуск -> Панель управления -> Принтеры
Примнет Excel — Excel -> Файл -> Печать
И там и там можно открыть свойства принтера. Но это не одно и тоже. Когда Excel открывается, он читает настройки принтера, выбранного по умолчанию в Windows, далее по тексту просто принтер Windows. Можно изменять свойства принтера Windows и его свойства будут прочитаны Excel-ом при открытии или выборе этого принтера в Excel. Если принтер в Excel уже выбран, то изменять свойства принтера Windows уже бес толку, так как Excel их уже получил, запомнил, и больше смотреть туда не будет до выбора другого принтера.

Двухсторонняя печать и другие свойства принтера:
Первое что надо вкурить — в Excel и вообще в Оффисе нет, не было и наверное не будет двухсторонней печати. Точно также как подобного свойства нет и в других программах, например в 1С или в простом блокноте. Да проще сказать где оно есть. Есть оно например в программе FinePrint. Кто юзал, тот поймет. А в других программах мы просто вызываем свойства принтера и выбираем там режим двухсторонней печати. То есть все это обрабатывает драйвер принтера, а не Excel. Excel просто отправляет документ на печать с настройками, которые уже получил и помнит.

Что делать если ну очень хочется?
Изменить свойства принтера по средствам вызова API функций из VBA, а затем отправить документ на печать. Тут стоит сразу отметить, что Excel и Word ведут себя по разному, но сейчас не об этом.

принтера Excel (Excel -> Файл -> Печать -> Свойства). Видим там что Duplex выставлен. Закрываем свойства принтера Excel, но не сам Excel. Открываем свойства принтера Windows и убираем Duplex. Опять открываем совйства принтера Excel, смотрим, а дуплекс то там остался, хоть мы и убрали его в принтере Windows.
Что же это означает? А то, что после того, как Excel получил свойства принтера Windows, изменять их уже бес толку, потому что Excel помнит свою копию свойств.
А теперь проделаем все наоборот. Изменим свойства принтера Excel и посмотрим отразились ли они на свойствах принтера Windows. А и не отобразились, но Excel продолжает их помнить. Ну а это означает, что изменение свойств принтера Excel никак не повлияет на свойства принтера Winows, и другие программы не увидят этих изменений, что мы сделали в Excel.

Теперь подумаем что и когда надо менять:
Правильнее будет предоставить изменять свойства

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

Ну а теперь грустный финал этой статьи. Увы это не урок, а простой вопрос. Есть пример VBA который легко, быстро, и надежно (ну у меня по крайней мере) меняет свойства

принтера Windows. А нужно изменять свойства принтера Excel.

Как нелепое решение могу предложить следующее:
Меняем

принтер Excel на какой нибудь другой. Изменяем свойства принтера Windows. Выбираем в Excel этот принтер. В момент выбора будут опять прочитаны его уже измененные свойства.
Недостатки этого способа:
1. Танцы со сменой принтеров требуют задержки и нагружают код нашей программы.
2. Изменения сделанные кодом нашей программы влияют на все другие программы, т.к. мы изменяем общие свойства принтера. Можно конечно по завершению вернуть все обратно, но можно и забыть, или например прога завершиться не корректно, и возврат сделан не будет.

В примере сразу смотрим модуль PrinterDuplex. Там внизу две процедуры теста. Получение и установка дуплекса.

Что нужно:
Добиться чтобы пример изменял не свойства

принтера Windows, а свойства принтера Excel.

Давайте сделаем это. Любые идеи, будем пробовать. Очень бы помогла консультация специалиста на тему печати в целом. Где и как хранятся свойства принтера на время жизни программы, которая отправляет документы на печать. Вот например тот же Блокнот тоже позволит открыть свойства принтера. Но там не будет кнопки «Применить». И все изменения будут сразу же забыты при закрытии диалога печати.

Ответить

Michael_S

Дата: Среда, 10.10.2012, 01:56 |
Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация:
373
±

Замечаний:
0% ±

Excel2016

Quote (Bagir)

И там и там можно открыть свойства принтера. Но это не одно и тоже. Когда Excel открывается, он читает настройки принтера, выбранного по умолчанию в Windows, далее по тексту просто принтер Windows. Можно изменять свойства принтера Windows и его свойства будут прочитаны Excel-ом при открытии или выборе этого принтера в Excel. Если принтер в Excel уже выбран, то изменять свойства принтера Windows уже бес толку, так как Excel их уже получил, запомнил, и больше смотреть туда не будет до выбора другого принтера.

Bagir, неверно.
Существуют настройки принтера и настройки докумета, при этом настройки документа в приоритете, не зависимо от подключенного принтера.
В Excel настройки документа ограничены.

Ответить

Bagir

Дата: Среда, 10.10.2012, 11:54 |
Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

Спасибо что поправили. Фраза настройки документа действительно звучит как то более понятней.
Но разве нет вообще никаких способов добраться до них? Где то же они находятся, я имею виду в какой то структуре.

Ответить

Michael_S

Дата: Среда, 10.10.2012, 12:25 |
Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация:
373
±

Замечаний:
0% ±

Excel2016

Я пропустил еще настройки драйвера принтера. И не все принтера имеют настройки печати. По приоритету — документ, потом драйвер, и последний принтер (если имеет настройки, практически на всех МФУ есть настройки печати)

Что касается Excel, у него очень мало сохраняемых настроек — поля, ориентация страницы, размер страница и область печати. Все остальное — либо драйвер, либо принтер. Как подобраться к ним с помощью VBA яне знаю. Да и для каждого принтера нужно писать свои макросы, так как они имеют свои настройки.

Ответить

Bagir

Дата: Среда, 10.10.2012, 13:08 |
Сообщение № 5

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

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

Ответить

Bagir

Дата: Среда, 10.10.2012, 13:35 |
Сообщение № 6

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

В Excel действительно очень мало сохраняемый настроек. И вероятно вы говорите о тех, которые может записать макрорекодрер. С ними как раз все понятно.

Quote (Michael_S)

Как подобраться к ним с помощью VBA я не знаю.

Я могу конечно напутать в определениях, но рискну предположить, что обсуждаемый тут пример как раз и редактирует настройки драйвера принтера. И для этого вовсе не нужно писать макрос на каждый принтер. Есть общая структура под названием DEVMODE. Посмотрите пример, там все просто и понятно.
Но как я уже расписал в самом начале, Екс запоминает настройки драйвера принтера для каждого открытого документа (книги). Вот их то и хотелось бы подолбить.

Ответить

Michael_S

Дата: Среда, 10.10.2012, 15:19 |
Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация:
373
±

Замечаний:
0% ±

Excel2016

Bagir, я ремонтирую принтеры, а не печатаю на них… smile
Вот счас, ради интереса, установил в драйвере принтера «двусторонняя печать». Открываю любой файл Excel, выбираю этот принтер (по умолчанию у меня другой), в настройках — двухсторонняя печать. Не закрывая файла переключил в драйвере на одностороннюю печать — в новых файлах печать односторонняя, в старых как была, так и осталась — двухсторонняя.
Вообще-то, как я понимаю, нужно добраться до этого места (отмечено кружком), поставить макрос на открытие книги — будет вам ЩастИе. smile

К сообщению приложен файл:

9983902.gif
(32.0 Kb)

Ответить

Bagir

Дата: Среда, 10.10.2012, 21:28 |
Сообщение № 8

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

Хм, я довольно много лет просидел в 2003 офисе и даже не особенно любопытствовал следующими версиями. Мои программы сильно нагружены хитрыми макросами, и простой переход не сделать. Потребуется много исправлений.
От простого переключения на двухстороннюю печать мне счастья точно не будет )). По ходу работы макроса формируются разные пакеты печати. Их нужно забрасывать на разные принтера с разными настройками дуплекса.
Но что я вижу на вашем скрине! Принтер отдельно, а его свойства отдельно, и все это на офисовской форме. Как бы в 2003 этого не наблюдалось wacko
Пошел ставить новый офис biggrin
Ну а вообще то суть остается та же. Нужно каким то способом обратиться с структуре свойства принтера у конкретного документа.

Ответить

Bagir

Дата: Четверг, 25.10.2012, 20:23 |
Сообщение № 9

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

Посмотрел… В новом Excel 2010 по части печати ничего более интересного чем в 2003 к сожалению нет.
На счет свойств документа. Не знаю, не уверен, но вроде как затея пустая.
Нужно работать со свойствами принтера, которые помнит сам Excel. Приведенный пример получает и изменяем общие свойства принтера. А нужно каким либо способом копать под свойства принтера, которые помнит Excel. Так же как в приведенном примере, получать их, изменять, и запихивать обратно. И только тогда решение можно будет назвать красивым и удачным.

Ответить

Michael_S

Дата: Четверг, 25.10.2012, 20:58 |
Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация:
373
±

Замечаний:
0% ±

Excel2016

Bagir, счас специально проверил — даже файл акробата, (а акробат заточен под печать) — и то не сохраняет настройки двухсторнней печати. Если вам большей частью нужна двухсторонняя печать — ставьте ее в свойствах принтера в драйвере, т.е. из винды

Сообщение отредактировал Michael_S — Четверг, 25.10.2012, 20:59

Ответить

Bagir

Дата: Понедельник, 29.10.2012, 20:33 |
Сообщение № 11

Группа: Проверенные

Ранг: Участник

Сообщений: 59

Репутация:
15
±

Замечаний:
0% ±

Michael_S, Если было бы все так просто, я бы не создал тему. Постоянное переключение на дуплекс для меня совершенно не подходит. Как временный выход сделал следующее: Всем двухсторонним принтерам установил копию их драйвера, добавив к названию слово Duplex. Установил настройки этой копии на постоянную двухстороннюю печать. А из своих программ, когда требуется задать двухсторонник, просто передаю управление временной процедуре, которая не изменяет свойства принтера, а выбирает его копию, настроенную уже на дуплекс.
Знаю, извращение, и работать будет только у себя. Но пока другого варианта у меня нет.
При печати требуется ставить в очередь задания как с дуплексом, так и без.

Работать по API со свойствами принтера, в том числе и с параметром двухсторонней печати, можно. Пример тому программа FinePrint. Ей все равно что за принтер у нас установлен. Прога отличная, дружу с ней уже много лет.
Другой вопрос, реально ли получить доступ к структуре свойств принтера, которые живут пока открыт Excel. Ведь их изменение будет сохранено на время жизни Excel, но не повлияет на другие программы. Возьмем например обычный Блокнот, и выполним Файл -> Печать. Откроется диалог печати. Но там даже кнопка Применить будет серая. Потому что не запоминает наш блокнот свойства принтера. Но мы же можем их изменить перед печатью, и эти изменения не будут касаться других программ. Соответственно в блокноте структура со свойствами принтера живет пока открыт диалог печати. Ну так ему больше и не нужно. А вот как подбить клинья к Excel — пока загадка.
Одно скажу точно, что изменить можно что угодно, вопрос лишь в том, существует ли для этого случая правило куда надо целиться.

Ответить

kalevich

Дата: Пятница, 12.07.2013, 14:28 |
Сообщение № 12

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация:
0
±

Замечаний:
0% ±

Excel 2003

у самих прошлый раз все драйвера послетали и печатали только виртуальным принтером
Ссылка удалена. Нарушение п. 5h Правил форума
перетаскивая на флешке пдф ки для распечатки

Сообщение отредактировал Pelena — Пятница, 12.07.2013, 14:40

Ответить

Источник

Как в ворде сделать принтер по умолчанию?

Чтобы выбрать принтер по умолчанию, нажмите кнопку Пуск и выберите Параметры . Перейдите в раздел Устройства > Принтеры и сканеры, выберите принтер и нажмите кнопку Управление. Затем нажмите кнопку Использовать по умолчанию.

Установка или добавление локального принтера

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

Как изменить настройки печати по умолчанию в Excel 2016? Справочник по современным технологиям

Чтобы выбрать принтер по умолчанию, нажмите кнопку Пуск и выберите Параметры . Перейдите в раздел Устройства > Принтеры и сканеры, выберите принтер и нажмите кнопку Управление. Затем нажмите кнопку Использовать по умолчанию.

Мнение эксперта

Витальева Анжела, консультант по работе с офисными программами

Со всеми вопросами обращайтесь ко мне!

Задать вопрос эксперту

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

«Microsoft Excel пытается восстановить ваши данные». Ошибка возникает из-за ложного срабатывания антивируса, конфликтов на панели предварительного просмотра, конфликтующих приложений, устаревшей версии Excel, устаревшей версии Windows и поврежденных установок Office. Пользователь застревает в этом сообщении об ошибке на неопределенный период времени.

При распечатке смещаются поля в экселе. Установка области печати в Microsoft Excel

В меню [Пуск] щелкните пункт [Принтеры и факсы]. Откроется окно [Принтеры и факсы].
Щелкните значок желаемого принтера.
В меню [Файл] выберите [Свойства]. .
Настройте необходимые параметры, а затем нажмите [OK].

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

Нажмите и удерживайте кнопку CTRL на клавиатуре.
Удерживая кнопку CTRL, щелкните все свои листы.
Когда все ваши листы выбраны, отпустите кнопку CTRL.
Перейдите на вкладку «Макет страницы».
На вкладке «Макет страницы» теперь вы можете настроить макет печати.

Щелкните ссылку «Удалить программу» в разделе «Программы». Прокрутите вниз и выделите «Microsoft Office». Нажмите кнопку «Изменить» и дождитесь открытия нового окна. Нажмите чтобы выбрать опцию «Восстановить» и нажмите «Продолжить», чтобы разрешить компьютеру восстановить Microsoft Excel до настроек по умолчанию.

Мнение эксперта

Витальева Анжела, консультант по работе с офисными программами

Со всеми вопросами обращайтесь ко мне!

Задать вопрос эксперту

Для того, чтобы зафиксировать последнюю строку на листе в соответствии с ранее распечатанным документом, нужно перетащить границу в нужное место. Если же вам нужны дополнительные объяснения, обращайтесь ко мне!

Как видим, задать конкретный фрагмент для вывода на принтер в документе Excel не так трудно, как это может показаться кому-то на первый взгляд. Кроме того, можно установить постоянную область печати, которую программа будет предлагать для распечатки материала. Все настройки производятся буквально в несколько кликов.

Решено Microsoft Print в PDF не работает в Windows 10

Найдите в Windows устройства и щелкните «Устройства и принтеры» в списке результатов.
Щелкните правой кнопкой мыши значок принтера () для вашего принтера, а затем выберите Параметры печати.
Выберите новые параметры печати по умолчанию (размер бумаги, ориентацию и т. Д.), А затем щелкните OK.

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

Фиксация единых параметров для всех документов

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

Выделить требуемый диапазон ячеек из общей таблицы (любым из удобных способов).
Перейти во вкладку «Разметка страницы» на главной панели с инструментами.
Нажать на опцию «Область печати».
Появится два варианта дальнейших действий – «Задать» и «Убрать». Необходимо выбрать первый.

Программа автоматически зафиксирует выделенную область. Она будет выводиться всегда, когда пользователь переходит в раздел печати.

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

Мнение эксперта

Витальева Анжела, консультант по работе с офисными программами

Со всеми вопросами обращайтесь ко мне!

Задать вопрос эксперту

Это один из наиболее эффективных способов решения проблем с зависанием при работе с Excel или любыми приложениями Office, поскольку есть вероятность, что один из установленных файлов был поврежден или мог быть удален. Если же вам нужны дополнительные объяснения, обращайтесь ко мне!

Первый шаг — отключить надстройку — запустить Excel в «безопасном» режиме. «Безопасный» режим предотвратит загрузку надстройки вместе с Excel, и вы можете отключить эти надстройки. Хорошо, давайте сделаем это поэтапно.

Исправлено: Microsoft Excel пытается восстановить вашу информацию — Ddok

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

Решение 3. Установите для Microsoft Print значение PDF в качестве принтера по умолчанию

1) Введите printer в поле поиска в меню «Пуск». Затем нажмите Устройства и принтеры в верхней части экрана.

Мнение эксперта

Витальева Анжела, консультант по работе с офисными программами

Со всеми вопросами обращайтесь ко мне!

Задать вопрос эксперту

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

Microsoft часто выпускает обновления Windows для улучшения Windows, добавления новых функций и исправления программных / аппаратных лазеек. Известно, что устаревшие версии Windows вызывают некоторые проблемы с самим Excel. В этом случае обновление Windows до последней версии может решить проблему.

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

Отключите функцию Microsoft Print to PDF и включите ее снова
Включите, чтобы в имени файла, которое вы вводите, не было запятой
Установить для Microsoft Print PDF как принтер по умолчанию
Удалить и восстановить Microsoft Print в PDF и переустановить его драйвер

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

Источник

Содержание

Как сделать принтер по умолчанию в excel?
Как из VBA выбрать и установить принтер для Excel
Как из VBA выбрать и установить принтер для Excel
Печать таблицы Excel с настройками параметров
Печать документа Excel
Как настроить печать в Excel?
All-Audio.pro
Статьи, Схемы, Справочники
Как сделать принтер
Как установить принтер по умолчанию с помощью командной строки?
Как подключить принтер к Google Виртуальному принтеру
Настройка принтера в 1С
Как настроить принтер для печати по сети
Как сделать принтер по умолчанию в excel?
Как сделать принтер сетевым
Как выбрать принтер по умолчанию

Как сделать принтер по умолчанию в excel?

Для окончательного усвоения материала, проделаем следующее:
Забудем на время про VBA, API и вообще все что связано с программированием. Открываем принтер Windows (см. формулировку в начале статьи). Ставим там у принтера по умолчанию например свойство двухсторонней печати (далее по тексту Duplex). Открываем Excel. Смотрим свойства принтера Excel (Excel -> Файл -> Печать -> Свойства). Видим там что Duplex выставлен. Закрываем свойства принтера Excel, но не сам Excel. Открываем свойства принтера Windows и убираем Duplex. Опять открываем совйства принтера Excel, смотрим, а дуплекс то там остался, хоть мы и убрали его в принтере Windows.
Что же это означает? А то, что после того, как Excel получил свойства принтера Windows, изменять их уже бес толку, потому что Excel помнит свою копию свойств.
А теперь проделаем все наоборот. Изменим свойства принтера Excel и посмотрим отразились ли они на свойствах принтера Windows. А и не отобразились, но Excel продолжает их помнить. Ну а это означает, что изменение свойств принтера Excel никак не повлияет на свойства принтера Winows, и другие программы не увидят этих изменений, что мы сделали в Excel.

Теперь подумаем что и когда надо менять:
Правильнее будет предоставить изменять свойства принтера Windows только пользователю. Пусть он сам установит те первоначальные свойства принтеров, с какими он бы хотел видеть их в других программах. А вод свойства принтера Excel можно «гнуть» как угодно под каждую конкретную задачу.

Ну а теперь грустный финал этой статьи. Увы это не урок, а простой вопрос. Есть пример VBA который легко, быстро, и надежно (ну у меня по крайней мере) меняет свойства принтера Windows. А нужно изменять свойства принтера Excel.

Как нелепое решение могу предложить следующее:
Меняем принтер Excel на какой нибудь другой. Изменяем свойства принтера Windows. Выбираем в Excel этот принтер. В момент выбора будут опять прочитаны его уже измененные свойства.
Недостатки этого способа:
1. Танцы со сменой принтеров требуют задержки и нагружают код нашей программы.
2. Изменения сделанные кодом нашей программы влияют на все другие программы, т.к. мы изменяем общие свойства принтера. Можно конечно по завершению вернуть все обратно, но можно и забыть, или например прога завершиться не корректно, и возврат сделан не будет.

В примере сразу смотрим модуль PrinterDuplex. Там внизу две процедуры теста. Получение и установка дуплекса.

Что нужно:
Добиться чтобы пример изменял не свойства принтера Windows, а свойства принтера Excel.

Как из VBA выбрать и установить принтер для Excel

Основная задача кодов 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 имеет два необязательных аргумента:

rr — ссылка на диапазон ячеек (например Selection для вывода на печать выделенного диапазона или Range(«A1:B10») для вывода на печать конкретного диапазона, вне зависимости от того, какой выделен). Если этот аргумент не указан, то на печать выводится весь активный лист.

lCopies — целое число, указывающее сколько копий выводить на печать. Если аргумент не указан — на печать выводится одна копия.

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

Sub TestPrint() DoPrint Selection, 2 End Sub

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

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

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

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

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

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

Здравствуйте! Столкнулся с проблемой, после установки любого принтера в системе пользователя один из файлов Excel при запуске начинает обращаться к подсистеме печати, и показывает окно выбора принтеров, точно такое же как у Вас в статье, далее все запускается в штатном режиме, но не надолго, при попытке выделить ячейки и скопировать их появляется сообщение о том, что печать невозможна так как буфер переполнен, при том что я не пытаюсь печатать, а всего лишь пытаюсь скопировать ячейки, это делает работу с файлом просто навсего невозможной. Запуск на другой машине привел к тому же самому, и на той и на другой установлен Office 2010, могу сделать вывод что дело в файле, но куда копать не знаю, он очень объемный и обладает кучей формул, но без макросов и как я понял без VBA скриптов. Просмотрел данный файл в редакторе VBA ничего не нашел, как избавиться от этой проблемы?

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

Доброго времени суток. Функция ChangePrinter работает отлично, спасибо Вам, Ваши статьи очень информативны. Однако у меня проблема вот в чем. Функция выбора принтера мне нужна не для выбора принтера по принципу хочу не хочу, а по принципу, работаетне работает. Поэтому, Ваша форма позволяет мне выбрать принтер, но сначала я должен определить какой из принтеров сейчас в сети, а это для обычного юзера может стать неразрешимой задачей) Есть ли возможность добавить в форму статус принтера? Или это «много кода»))? В любом случае, Спасибо.

Здравствуйте!
Есть ли возможность создать TextBox в UserForm, и в зависимости от числа в TextBox (1, 2, 3. ), выводить на печать соответствующее число копий?

Поделитесь своим мнением

Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме — добро пожаловать на Форум

Как из VBA выбрать и установить принтер для Excel

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

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

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

Sub TestPrint() DoPrint Selection, 2 End Sub

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

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

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

Поделитесь своим мнением

Печать таблицы Excel с настройками параметров

В Excel достаточно много внимания уделено подготовки документа для вывода на печать. Настроек печати, значительно больше, чем в программе Word.

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

Печать документа Excel

Чтобы вывести документ на печать в Excel существует 2 базовых способа:

Быстро и без настроек. Щелкните по инструменту «Быстрая печать» на панели быстрого доступа. Документ сразу отправиться на принтер, без каких либо управлений полями и параметрами. Но все же после нажатия на эту кнопку сразу принтер не запуститься, а появиться диалоговое окно настроек принтера.
С предварительным просмотром и настройками. Выберите «Файл»-«Печать» (или нажмите комбинацию горячих клавиш CTRL+P).

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

Как настроить печать в Excel?

Детальный разбор параметров печати и значение кнопок и опций параметров:

Печать – вывод данных документа на принтер с учетом всех настроек и опций.
Копии – количество экземпляров распечатанного документа. По умолчанию – 1. Значение можно ввести с клавиатуры или воспользоваться стрелочками.
Модель принтера – работая в локальной сети данный пункт, может содержать целый список принтеров. К одному компьютеру так же может быт подключено более 1-го принтера. Кроме того в данном параметре отображаются факсы и виртуальные принтеры для генерации PDF файлов.
Свойства принтера – щелкнув по данной ссылке, открывается диалоговое окно настройки параметров выбранного принтера. Эти параметры зависят от модели и типа печатающего устройства.
Напечатать активные листы – по умолчанию установлена опция для печати только активных листов. Но если щелкнуть по ней, то раскроется список дополнительных опций: «Напечатать всю книгу» (чтобы вывести данные на печать всей книги Excel) и «Напечатать выделенный фрагмент» (чтобы выводить на печать только диапазон данных). Их названия говорят за их функции. Так же в данном списке доступна опция «Игнорировать область печати». Она работает в режиме переключателя и может быть активирована/отключена вместе с любой выше описанной опцией. Ее можно использовать, когда задана область печати, а ее нужно проигнорировать. Или же стоит использовать данную функцию, когда при печати из Excel выходит пустая страница. Это значит, что неправильно задана область печати и ее нужно проигнорировать.
Старицы – здесь можно установить диапазон номеров страниц, которые нужно распечатать. Например, печатать только с 5-ой по 12-тую страницу.
Разобрать по копиям – данная функция выбрана по умолчанию. Это значит, что если документ печатается в нескольких экземплярах, то сначала будет распечатан 1-й экземпляр полностью потом 2-ой, 3-ий и т.д. Данную функцию можно переключить в другой режим «Не разбирать по копиям» — это значит, что сначала будут печататься все только первые страницы всех экземпляров, потом только вторые, третьи и т.д.
Книжная ориентация – выбор ориентации страницы, которую можно сменить на альбомную ориентацию.
А4 – здесь можно задать формат бумаги на котором будет печатать принтер. В списке доступно множество форматов для выбора. Но даже если вы не найдете подходящего формата, то для вас доступна опция под списком: «Другие размеры страниц» где вы можете в диалоговом окне «Параметры страницы» найти свой формат. Там же в списке «Размер бумаги» предоставлены все форматы «Международного стандарта ISO 216». Также включены форматы бумаги: «Североамериканский стандарт» и «Японский стандарт».
Последние настраиваемые поля – по умолчанию в данном параметре предоставляются пользовательские значения. Для удобства предусмотрено 3 готовых и уже настроенных шаблона полей: «Обычные», «Широкие», «Узкие».
Текущий – это параметр настройки размера масштаба данных, которые будут размещены на листах бумаги. Для удобства предусмотрено 3 шаблона масштабирования страниц: «Вписать лист на одну страницу» (данный шаблон параметра позволяет выполнить печать таблицы в Excel на одном листе), «Вписать все столбцы на одну страницу», «Вписать все строки на одну страницу». Для пользовательских настроек доступна опция «Параметры настраиваемого масштабирования», при выборе которой открываться все тоже окно «Параметры страницы». Например, если нужно увеличить масштаб печати в Excel или уменьшить, то там можно внести свои пользовательские настройки в соответствующем разделе. Таким образом, можно например, уменьшить таблицу в Excel для печати на одном листе.

Внимание! В данных настройках не ищите параметры двухсторонней печати. Данная функция должна поддерживаться Вашим принтером и настраиваться в его параметрах (смотрите пункт 4).

All-Audio.pro

Статьи, Схемы, Справочники

Как сделать принтер

В Windows 10 значением по умолчанию может быть принтер, который использовался последним. Установите флажок рядом со строкой Разрешить Windows управлять принтером по умолчанию. Перейти к основному контенту. Чтобы выбрать принтер по умолчанию, нажмите кнопку Пуск и выберите Параметры. Затем нажмите кнопку Использовать по умолчанию. Если установлен флажок Разрешить Windows управлять принтером по умолчанию , вам потребуется снять его, чтобы самостоятельно выбрать принтер по умолчанию.

Поиск данных по Вашему запросу:

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

Перейти к результатам поиска >>>

ПОСМОТРИТЕ ВИДЕО ПО ТЕМЕ: Обдув 3д принтера своими руками

Как установить принтер по умолчанию с помощью командной строки?

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

Также сразу следует сказать, что здесь мы не будет описывать подробную установку принтера как такового. Ведь это довольно простая задача. Содержание статьи: Как открыть общий доступ к принтеру в Windows 7 и 10 Важные сетевые настройки доступа в Windows 7 и 10 Ну что же, давайте начинать.

Дальнейшие настройки будут показаны на примере Windows Хотя и на Win 7 и 8 все будет аналогично. При желании его можно изменить на любое другое. Ну вот в принципе и все настройки касательно того, как сделать принтер сетевым в Windows 7 и Но на всякий случай можно еще зайти на вкладку «Безопасность» и убедиться в том, что для группы пользователей «Все» стоит галка напротив пункта «Печать»: Конечно же, не забываем везде нажимать кнопку «ОК» для того, чтобы внесенные изменения были приняты.

Теперь если вернуться в первоначальный раздел «Устройства и принтеры», то возле значка принтера можно увидеть иконку в виде двух человечков: Это говорит о том, что данный принтер мы «расшарили», то есть дали доступ к нему другим пользователям локальной сети.

И еще, чуть не забыли, обязательно нужно включить «Общий доступ к файлам и принтерам» в настройках самой операционной системы Windows. Ну а наш рассказ на этом будет подходить к завершению. Если остались вопросы, милости просим в комментарии.

На этом всем пока и до новых встреч. А в завершение, как всегда, свежее видео. Как сделать принтер сетевым. Или попользовался сам, дай теперь другим. Комаровский Виталик. Комментариев нет.

Добавить комментарий Отменить ответ Для отправки комментария вам необходимо авторизоваться.

Как подключить принтер к Google Виртуальному принтеру

Подскажите, пожалуйста, можно ли сделать так, чтобы при нажатии на кнопочку производился выбор принтера по умолчанию? То есть один принтер менялся на, скажем, pdf-factory-pro, и наоборот? И если я ставлю в панели управления принтер pdf по умолчанию, то при выполнении этого макроса мне и выдается искомый pdf. Но каждый раз лазить в панель управления, чтобы изменить принтер по умолчанию? Попроще низзя ли? Порой возникает необходимость решения задачи, связанной с тем, как установить принтер по умолчанию. Это особенно актуально в том случае, если к персональному компьютеру подключен не один девайс, а сразу несколько, либо одно из печатающих устройств может быть доступно на нем посредством локальной сети.

Настройка принтера в 1С

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

Как настроить принтер для печати по сети

Чтобы отправлять документы на печать по Wi-Fi и быстро предоставлять доступ к принтеру, подключите его к Google Виртуальному принтеру. Откройте список принтеров с поддержкой облачной печати , а затем введите или выберите марку и модель своего принтера. Хотите, чтобы принтером могли пользоваться другие люди? Или собираетесь печатать на нем документы с устройства Chromebook? Тогда вам нужно предоставить к принтеру общий доступ.

Как сделать принтер по умолчанию в excel?

Если вы устанавливаете новый принтер HP , Epson либо Canon или у Вас уже есть несколько принтеров, установленных в сети, то у вас есть возможность выбрать, какой принтер Вы хотите использовать в качестве принтера по умолчанию. Если Вы устанавливаете новый принтер, следуйте инструкциям на компакт-диске. Во время установки отобразится мастер установки принтера и вам будет предоставлена возможность установить новый принтер как принтер по умолчанию. Щелкните правой кнопкой мыши значок принтера еще раз, чтобы убедиться, что правильный принтер теперь устанавливается по умолчанию. Если контекстное меню не отображается, дважды щелкните на значке принтера для вывода очереди печати. Флажок рядом с пунктом меню или значок принтера означает, что принтер теперь установлен как принтер по умолчанию.

Как сделать принтер сетевым

Хабр Geektimes Тостер Мой круг Фрилансим. Гаджи Кочкарев kochkarev. Доброго времени суток! Возникла потребность с помощью скриптов выбирать активный принтер по умолчанию. Удалить все принтеры — отключить и включить принтер для начала его установки — установить по умолчанию; 2. Определить активный — определить имя — установить по умолчанию. Никто не знает, как реализовать это через командную строку или реестр? Максим Ярошевич YMax Системный администратор.

Как выбрать принтер по умолчанию

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

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

Начнем с того, что современные принтеры, МФУ и другие устройства различаются по типу подключения к ПК. Соотвественно настройка принтера на персональном компьютере будет различаться в зависимости от того, какой порт вы используете. Все порты имеют свои плюсы и минусы. Ну например, если через usb соединение печать, можно сказать, «моментальная», то для печати по сети может потребоваться какое-то время, ведь документы различаются по своему размеру и пока они не передадуться через сеть на принтер, печать не начнется Допустим, принтер установлен на вашем компьютере и подключен по USB-кабелю, как сделать так, чтобы и другие пользователи могли печатать на нем? В появившемся окне будут отображаться все установленные принтеры, факсы, мониторы, сканеры, МФУ-шки и так далее:. Но нам нужно выбрать тот принтер, к которому следует предоставить общий доступ.

Здесь пойдет речь о настройке сетевого принтера, который подключается к вашей сети с помощью интерфейса Ethernet по витой паре. Необходимо узнать IP-адрес принтера. Если вы назначили его вручную — проблем нет.

Источник

Windows 7

Windows 8

Windows 10

Как изменить размер страницы в Эксель

Настраиваем поля в Excel

Добавляем колонтитулы в Excel

Вставляем разрыв страницы в Excel

Добавляем заголовок в Excel

Настраиваем в Excel масштаб печати

Сокрытие перед печатью

Представления в Excel

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

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

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

См. также

Нужна дополнительная помощь?

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

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

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

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

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

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

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

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

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

Как в ворде сделать принтер по умолчанию?

При распечатке смещаются поля в экселе. Установка области печати в Microsoft Excel

Решено Microsoft Print в PDF не работает в Windows 10

Фиксация единых параметров для всех документов

Исправлено: Microsoft Excel пытается восстановить вашу информацию — Ddok

Решение 3. Установите для Microsoft Print значение PDF в качестве принтера по умолчанию

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

Как сделать принтер по умолчанию в excel?

Как из VBA выбрать и установить принтер для Excel

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

Как из VBA выбрать и установить принтер для Excel

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

Печать таблицы Excel с настройками параметров

Печать документа Excel

Как настроить печать в Excel?

All-Audio.pro

Статьи, Схемы, Справочники

Как сделать принтер

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

Перейти к результатам поиска >>>

Как установить принтер по умолчанию с помощью командной строки?

Как подключить принтер к Google Виртуальному принтеру

Настройка принтера в 1С

Как настроить принтер для печати по сети

Как сделать принтер по умолчанию в excel?

Как сделать принтер сетевым

Как выбрать принтер по умолчанию

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