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

Some users are experiencing issues with Microsoft Excel. When they try to print from Excel, nothing happens. Whereas, some users have reported that a small window appears and disappears immediately after giving the print command to Excel. If you cannot print from Excel, the suggestions provided in this post may help you fix printing problems in Microsoft Excel.

Fix Excel printing problems of Windows 11/10

If you cannot print from Excel but Word can or maybe you see a Not enough memory error message then here are some suggestions to help you fix Excel printing problems. Before you proceed, make sure that you are using the latest version of Microsoft Office. You can also try to update Office manually and see if it fixes the problem. If the problem persists, try the solutions provided below.

1. Try to print via Microsoft XPS Document writer
2. Update your printer driver
3. Edit permissions in the Registry Editor
4. Troubleshoot Excel in Safe Mode
5. Remove and add your printer again
6. Repair Office

Let’s see all these solutions in detail.

1] Try to print via Microsoft XPS Document Writer

Before printing a spreadsheet, Excel shows us an option to select the printer. If you are unable to print from Excel via your default printer, try to print via Microsoft XPS Document Writer. The steps to do this are as follows:

1. Launch Microsoft Excel and open your spreadsheet.
2. Go to “File > Print.”
3. Click on the Printer drop-down and select Microsoft XPS Document Writer.
4. This will save your Excel spreadsheet in the XPS format.

Now, open the saved file. You should be able to print it.

2] Update your printer driver

You might be experiencing printing issues with Excel due to the corrupted or outdated printer driver. We suggest you update your printer driver and see what happens.

You have the following choices when it comes to updating the printer driver.

1. Open the Windows Optional Update page and update your printer driver from there (if any update is available).
2. Visit the official website of your printer manufacturer and download the latest version of your Printer driver. Now, double-click on the installer file to install the printer driver manually.

3] Edit permissions in the Registry Editor

Windows Registry is a hierarchical database that stores the Windows settings and configurations. Any mistake while modifying the Windows Registry can lead to serious damage to the system. Therefore, before you proceed, we recommend you create a System Restore Point and backup Windows Registry.

Follow the instructions carefully.

Press the Win + R keys. This will open the Run command box. Type regedit and click OK. Click Yes in the UAC prompt.

When the Registry Editor appears on your screen, go to the following path. Simply copy the path given below and paste it into the address bar of the Registry Editor. After that, press Enter.

ComputerHKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionWindows

Right-click on the Windows key and select Permissions. The Permissions dialog box will appear. Now, click on the Allow checkbox next to the Full Control option. Click Apply and then click OK.

4] Troubleshoot Excel in Safe Mode

If the problem still persists, there might be a problematic add-in. To confirm this, launch Excel in Safe Mode and print your spreadsheet. If you are able to print your spreadsheet in the Safe Mode, an add-in is causing the problem.

Now, close Excel and open it again in the normal mode. Start disabling all the COM add-ins one by one and print your spreadsheet every time you disable an add-in. This will let you know which add-in is causing the problem. According to the feedback of affected users, the Acrobat PDFMaker Office Com add-in was causing the problem. If you have installed such an add-in, disable it and then see if you can print the spreadsheet. If yes, remove that add-in.

The following steps will help you disable COM Add-ins in Excel:

1. Open your spreadsheet in Excel.
2. Go to “File > Options > Add-Ins.”
3. Select COM Add-ins in the drop-down at the bottom and click GO.
4. The COM Add-ins dialog box will appear. Now, simply uncheck the checkbox to disable a particular add-in.
5. Click OK.

Read: Fix Excel keeps flickering on Windows 11/10.

5] Remove and add your printer again

Sometimes, removing and adding the printer again fixes the printer-related issues. Completely remove or uninstall your printer and then add it again. Check if this helps. You can completely remove a printer from your Windows 11/10 machine via:

• Settings
• The Control Panel
• Print Server Properties
• The Command Prompt
• The Registry Editor

6] Repair Office

If nothing helps you, repair Microsoft Office. Sometimes, the problem occurs due to corrupted Office files. If this is the case with you, repairing Microsoft Office will fix the problem. First, run a Quick Repair. If this does not fix the problem, run an Online Office Repair.

Read: Microsoft Excel displays High CPU usage.

Fix Excel printing problems in Windows 11/10

Above, we have seen the solutions to fix the problem when Excel does not print on receiving the print command from the user. Now, let’s see some common printing problems that you may experience in Microsoft Excel. Sometimes, when we print a spreadsheet from Excel, we do not get the desired printout. Some of you might have experienced such a problem. Such types of problems occur when the print settings are incorrectly configured before printing a spreadsheet.

Here are some tweaks that you can do to avoid some common printing problems in Microsoft Excel.

1. Fit your spreadsheet on one page
2. Set the print area in Excel
3. Configure print settings before printing the spreadsheet

1] Fit your spreadsheet on one page

Some of you might have experienced that despite configuring the correct page settings, Excel prints a spreadsheet on more than one page. This problem can be fixed by changing the scaling in Excel. If you want to print all the rows or columns on one page in Excel, you have to change the No Scaling option in Excel to Fit all rows on one page and Fit all columns on one page option respectively.

2] Set the print area in Excel

If you want to print selected cells in your spreadsheet, you can set the print area for the same. The steps to set the print area are as follows:

1. Open Excel.
2. Open your worksheet in Excel.
3. Select the range of cells that you want to print.
4. Go to “Print Layout > Print Area > Set Print Area.”

Now, when you give the print command to Excel, it will print only the selected cells on a page. You can extend the print area by adding more cells to it. If the cells that you want to add are adjacent to the existing print area, Excel will print them on the same page (if space is available). If the selected cells that you want to add are not adjacent to the existing print area, Excel will print them on another page, no matter whether the space is available on the existing print area or not.

To add cells to the existing print area, follow the steps below:

1. Select the range of cells that you want to add to the existing print area.
2. Go to “Page Layout > Print Area > Add to Print Area.”

To clear the print area, go to “Page Layout > Print Area > Clear Print Area.”

3] Configure print settings before printing the spreadsheet

You can configure the print settings before printing your spreadsheet. To do so, go to “File > Print” or simply press the Ctrl + P keys. There you will see different print settings. You can change the page orientation (landscape or portrait), select your paper size such as Letter, Legal, A4, A3, etc., change page margins, etc. Every time you make a change to the print settings, Excel will show you the print preview in the preview window.

Why can I print from Word but not from Excel?

If you are able to print from Word but not from Excel, there might be a problematic add-in in Excel. You can confirm this by opening Excel in the Safe Mode. If you will be able to print in the Safe Mode, one of the add-ins is the culprit. Now, disable add-ins installed in Excel one by one. Print your spreadsheet every time you disable an add-in. This will help you identify the problematic add-in.

Other solutions that you can try are removing and adding the printer again, updating your printer driver, etc.

Why won’t Excel print all the columns?

To print all the columns on one page in Excel, you have to configure the page settings before printing your spreadsheet. The steps for the same are as follows:

1. Open your spreadsheet in Excel.
2. Go to “File > Print.”
3. By default, the page setup is set to No Scaling. You have to change this option. Click on it and select Fit all columns on one page.

After that, you will be able to print all the columns on one page in Excel.

Print preview is not available because Microsoft Excel could not connect to the selected printer

If you see the “Print preview is not available because Microsoft Excel could not connect to the selected printer” error message while printing a spreadsheet from Excel, make sure that your computer is running on the latest version of the Windows operating system. Open Windows 11/10 Settings and check for updates. If updates are available, download and install them.

We also suggest you update Microsoft Office manually and see if it helps. If the problem persists, repair Microsoft Office.

Cannot print from Excel, Not enough memory

Some of you might have seen the “Not enough memory” error message while printing a spreadsheet in Microsoft Excel. The error message is self-explanatory. When the printer from which you are printing the jobs does not have enough memory, you will see this error. However, there are other causes too that trigger this error. To fix this issue, you can try the following fixes.

1. Copy the data from your spreadsheet to a new spreadsheet
2. Change your default printer
3. Update your printer driver
4. Print in Draft Mode
5. Save your Excel file in ODS format
6. Reset your printer memory
7. Clear print spooler
8. Repair Office

Let’s see all these fixes in detail.

1] Copy the data from your spreadsheet to a new spreadsheet

This method has fixed the issue of some users. You can also try this. Copy the data from your spreadsheet to a new spreadsheet and see if it helps.

2] Change your default printer

If the problem still persists, change your default printer. You can set any virtual printer as a default printer, such as Microsoft Print to PDF, Microsoft XPS Document Writer, etc.

3] Update your printer driver

Sometimes the problem persists due to the outdated or malfunctioned printer driver. If this is the case with you, updating the printer driver will solve your problem. To do so, follow the steps written below:

1. Open the Device Manager.
2. Expand the Print queues node.
3. Right-click on your printer driver and select Update driver.
4. Select the “Search automatically for drivers” option. Let Windows install the latest version of your printer driver.

If this does not work, visit the official website of your printer manufacturer and download the latest version of your printer driver from there. Now, run the installer file to install the latest version of your printer driver manually.

4] Print in Draft Mode

For some users, printing the spreadsheet in the Draft mode fixed their problem. You can also try this and see if it helps. To do so, you have to change the Fast mode to Draft mode. By default, the print quality is set to Fast mode. Open your print quality settings and change the Fast mode to Draft mode.

5] Save your Excel file in ODS format

Another effective solution to fix this problem is to save the Excel spreadsheet in ODS (OpenDocument Spreadsheet) format. The steps to do this are as follows:

1. Launch Microsoft Excel and open your spreadsheet.
2. Go to “File > Save As.”
3. Click on the Save as type drop-down menu and select OpenDocument Spreadsheet.
4. Click Save.

Now, open the ODS file and print it. The problem should not appear this time.

6] Reset your printer memory

If your printer is running low on memory, resetting its memory will help fix the issue. Resetting the printer memory will clear the print jobs in the queue. To do so, follow the steps given below:

1. Disconnect your printer from your computer.
2. Turn off your printer.
3. Disconnect the power cable of your printer and wait for a few minutes.
4. Connect the power cables again and turn on your printer.
5. Connect your printer to your computer.

If the above method did not help, cold reset your printer. The method to cold reset printers is different for the printers of different brands. Therefore, you have to refer to the user manual of your printer to know the correct way to cold reset your printer.

7] Clear the Print Spooler

In Windows, Print Spooler is a service that stores the printing jobs temporarily. If Excel is showing the “Not enough memory” message while printing a spreadsheet, clearing the Print Spooler may fix the problem. The steps to clear the Print Spooler are as follows:

1. Press the Win + R keys to launch the Run command box.
2. Type services.msc and click OK. This will launch the Services Management window.
3. Scroll down and locate the Print Spooler service.
4. Once you find it, right-click on it and select Stop.
5. Open the File Explorer and go to the “C:WindowsSystem32spool” path. Simply copy this path and paste it into the address bar of the File Explorer. After that, hit Enter.
6. Open the PRINTERS folder and delete all the files inside it. Do not delete the PRINTERS folder.
7. Return to the Services Management window and right-click on the Print Spooler service.
8. Select Start.

8] Repair Office

Check if you are getting the same error message in other Office apps, like Word. If not, some of the Excel files may be corrupted. To fix this problem, run an online repair for Microsoft Office.

Hope this helps.

Read next: Excel freezing, crashing, or not responding.

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

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

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