Получение списка принтеров в системе

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Получение списка принтеров в системе (Макросы/Sub)

koyaanisqatsi

Дата: Среда, 04.02.2015, 08:46 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2010

Здравствуйте.

Нашел в инете макрос для получения списка принтереов но результата запуск почему-то не выдает. И не говорит что есть ошибка ... (
[vba]

Код

Sub ПолучениеСпискаПринтеров()
     Set AllPrinters = GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
     For Each printer In AllPrinters
        n = n + 1: Debug.Print "Принтер №" & n & ": " & printer.Name
     Next
     Debug.Print "Всего принтеров: " & n
End Sub

[/vba]

Пробовал следующий макрос по списку тоже не показывает признаков жизни (
Макросы для получения списков подключенных принтеров

Ответить

Pelena

Дата: Среда, 04.02.2015, 08:53 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
У Вас окно Immediate открыто? У меня работает

К сообщению приложен файл: 5989700.gif (5.2 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

koyaanisqatsi

Дата: Среда, 04.02.2015, 09:10 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2010

Pelena, не открыто. самое печальное что не могу даже в инете найти как его включить. Максимум нашел описание окна (

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

Сообщение отредактировал koyaanisqatsi - Среда, 04.02.2015, 09:18

Ответить

Pelena

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

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

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

Замечаний: ±

Excel 365 & Mac Excel

Alt+F11 -- Ctrl+G

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

_Boroda_

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

Группа: Админы

Ранг: Местный житель

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Антон, перепишите так, будет вставлять с А1 и вниз
[vba]

Код

Sub ПолучениеСпискаПринтеров()
     Set AllPrinters = GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
     For Each printer In AllPrinters
         n = n + 1
         Range("A" & n) = "Принтер №" & n & ": " & printer.Name
     Next
     Range("A" & n + 1) = "Всего принтеров: " & n
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

koyaanisqatsi

Дата: Среда, 04.02.2015, 09:20 | Сообщение № 6

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

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2010

Pelena, Отредактировал сообщение. И да такое сочетание клавишь тоже нашел в инете. Но у меня они почему-то не работают ( Раньше были окна разные возможно и которое нужно. Потом однажды все пропали и теперь даже чтобы модуль вставить надо через меню кликнуть на инсерт