При открытии excel выбор принтера как убрать

Excel при открытии выбор принтера

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

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

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

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

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

​(см. формулировку в​​- 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)​​Найти​​ материалами на вашем​При написании макроса​​ списка всех принтеров.​​ случаем когда зебра​ «Страница» виртуальная -​ текущий. Несколько сложнее​ не найдено:​

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

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

​ задача (. ​​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.​ и тоже. Когда​: Посмотрите тут и​​ его.​​ содержать неточности и​

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

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

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

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

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

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

При открытии файла 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​

Печать на выбираемый принтер. Зебра. (Макросы/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​ ) За что​

Отключение диалогового окна выбора принтера при печати докум (Макросы/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 найден в​
​ отклик происходит уже​
​ у себя. Но​

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

Excel пытается «получить доступ к принтеру» (Accessing Printer) при открытии конкретной книги

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

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

Экспресс-ответ

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

Вот несколько возможных решений:

1. Измените принтер по умолчанию. Возможно, файл пытается обратиться к принтеру, который больше не существует или временно недоступен. Попробуйте переключить принтер по умолчанию на другой принтер и снова откройте файл.
2. Удалите настройки печати из файла. Откройте файл, перейдите на вкладку «Файл» > «Параметры страницы» и сбросьте настройки принтера. Затем сохраните файл и закройте его. При повторном открытии проблема должна исчезнуть.
3. Попробуйте открыть файл в режиме безопасности Excel. Это можно сделать, нажав и удерживая клавишу Ctrl при открытии программы Excel. Если файл открывается без задержек в этом режиме, проблема может быть вызвана некорректным дополнением или настройкой Excel.
4. Возможно, проблема связана с самим пользователем или его профилем. Попробуйте открыть файл под другим профилем пользователя.
5. Если файл содержит макросы, убедитесь, что они работают корректно и не вызывают проблем с доступом к принтеру.
6. Обновите драйверы принтера. Устаревшие или поврежденные драйверы могут вызвать эту проблему.
7. Если все вышеперечисленное не работает, попробуйте скопировать содержимое файла в новый файл Excel и сохраните его. Если проблема не повторится в новом файле, проблема может быть связана с самим файлом.

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

При открытии excel выбор принтера как убрать

Доброго дня.
При открытии некоторых файлов *.xlsx в программе MS Excel стабильно возникает окошко

Галочка «использовать по умолчанию» для этого принтера установлена.

Доброго дня.
При открытии некоторых файлов *.xlsx в программе MS Excel стабильно возникает окошко

Галочка «использовать по умолчанию» для этого принтера установлена.

Сообщение Доброго дня.
При открытии некоторых файлов *.xlsx в программе MS Excel стабильно возникает окошко

Галочка «использовать по умолчанию» для этого принтера установлена.

Как победить? Автор — Glen
Дата добавления — 05.04.2019 в 07:32

Сам разобрался.
На некоторых скрытых листах был выбран вид «Страничный»

При чем сколько было таких листов, столько раз и приходилось тыкнуть кнопку Ок.
Переставил на таких листах вид на «Обычный» — проблемы больше нет.
Всем СПАСИБО.
Сам разобрался.
На некоторых скрытых листах был выбран вид «Страничный»

При чем сколько было таких листов, столько раз и приходилось тыкнуть кнопку Ок.
Переставил на таких листах вид на «Обычный» — проблемы больше нет.
Всем СПАСИБО. Glen
Сообщение Сам разобрался.
На некоторых скрытых листах был выбран вид «Страничный»

При чем сколько было таких листов, столько раз и приходилось тыкнуть кнопку Ок.
Переставил на таких листах вид на «Обычный» — проблемы больше нет.
Всем СПАСИБО. Автор — Glen
Дата добавления — 05.04.2019 в 07:45

Каждая ячейка как отдельная страница в Excel

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

1. Изменить принтер при печати на любой другой. Например использовать встроенный Microsoft Print to PDF. При выборе другого принтера, в окне предпросмотра уже должны выводиться нормальные листы.
2. Изменить любой параметр печати. Например можно зайти в «Параметры страницы» и в открывшемся окне, во вкладке «Страница» изменить параметр «Масштаб» на 1 единицу выше или ниже и нажать «ОК».

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

После этих манипуляций файл стоит сохранить перед закрытием.

Ещё один способ решения проблемы

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