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

vaindil

2014-06-17 в 15:24

Excel 2010 (64-разрядная версия Windows 7 Professional) загружает определенный файл Excel до 100%, затем сообщение о состоянии на заставке поворачивается между «Открытие (100%)» и «Доступ к принтеру». Он сидит и вращается между двумя в течение полных 60-90 секунд, прежде чем документ наконец открывается.

Что можно сделать, чтобы сообщение «Доступ к принтеру» не отображалось в этом конкретном документе? Я пытался восстановить его без удачи. Это происходит только с одним пользователем в этом одном файле.

---

5 ответов на вопрос

• Популярные
• Новые
• С комментариями
• Активные

vaindil

2014-06-17 в 17:03

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

user700211

2017-02-22 в 08:31

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

Captain Garry

2016-10-19 в 22:26

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

1. Убедитесь, что все документы находятся вне очереди печати
2. Перезапустите (или остановите .. затем запустите) службу «Диспетчер очереди печати», введя «Services.msc» в диалоговом окне «Выполнить».

Gregory Okoth

2018-02-19 в 05:14

Я полагаю, что для такого рода проблем MS Excel пытается открыть принтер по умолчанию при открытии документа (у меня был файл в MS Excel 365, настроенный в режиме предварительного просмотра разрыва страницы в меню «Вид»). Мой принтер по умолчанию был установлен на общий принтер с устаревшего ПК, поэтому я предполагаю, что MS Excel безуспешно пытался связаться с принтером и зависал на этом этапе. Решение состоит в том, чтобы изменить принтер по умолчанию на доступный / локальный принтер и, возможно, удалить / удалить нарушающий принтер с панели управления. После этого рабочая книга открывается без проблем

Окно Выбор принтера при открытии файла .xlsx

Glen Дата: Пятница, 05.04.2019, 07:32 | Сообщение № 1 Группа: Пользователи Ранг: Участник Сообщений: 93 Репутация: 10 ± Замечаний: 0% ± Excel 2010-16 Доброго дня. При открытии некоторых файлов *.xlsx в программе MS Excel стабильно возникает окошко Галочка «использовать по умолчанию» для этого принтера установлена. Как победить? Пехаль киндриков куравь, пехаль киндриков лузнись.   Ответить

Glen Дата: Пятница, 05.04.2019, 07:45 | Сообщение № 2 Группа: Пользователи Ранг: Участник Сообщений: 93 Репутация: 10 ± Замечаний: 0% ± Excel 2010-16 Сам разобрался. На некоторых скрытых листах был выбран вид «Страничный» При чем сколько было таких листов, столько раз и приходилось тыкнуть кнопку Ок. Переставил на таких листах вид на «Обычный» — проблемы больше нет. Всем СПАСИБО. Пехаль киндриков куравь, пехаль киндриков лузнись.   Ответить

Янек Дата: Вторник, 29.12.2020, 12:41 | Сообщение № 3 Группа: Пользователи Ранг: Новичок Сообщений: 21 Репутация: 1 ± Замечаний: 0% ± Excel 2016 Благодарю. Помогло:)   Ответить

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

​Смотрите также​​ если понадобится в​ это в макросе​ уже эксель его​ В этот момент​ в ячейке если​ списке доступных​ мгновенно. послал одну​ пока другого варианта​ структуры устройства} 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

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