Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбор доступного принтера из ListBox и ComboBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор доступного принтера из ListBox и ComboBox (Макросы/Sub)
Выбор доступного принтера из ListBox и ComboBox
MifV Дата: Среда, 22.10.2014, 21:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Добрый день.

Документ распечатывается через пользовательскую форму при нажатии на кнопку ПЕЧАТЬ на листе.
Сформирован список всех доступных принтеров. Этот список занесен в ListBox1 (1-й вариант) и в ComboBox1 (2-й вариант)
При использовании 1-го варианта (для меня предпочтительный) печать происходит всегда на принтере "по умолчанию" не зависимо от выбранной строки в ListBox1.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=ListBox1
При использовании 2-го варианта (не удобный) печать происходит на принтере, выбранном в ComboBox1. всё нормально, проблем нет.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=ComboBox1

Что сделать чтоб печать выводилась на принтер выбранный в ListBox1?

Спасибо!
К сообщению приложен файл: 6778780.xls (32.0 Kb)
 
Ответить
СообщениеДобрый день.

Документ распечатывается через пользовательскую форму при нажатии на кнопку ПЕЧАТЬ на листе.
Сформирован список всех доступных принтеров. Этот список занесен в ListBox1 (1-й вариант) и в ComboBox1 (2-й вариант)
При использовании 1-го варианта (для меня предпочтительный) печать происходит всегда на принтере "по умолчанию" не зависимо от выбранной строки в ListBox1.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=ListBox1
При использовании 2-го варианта (не удобный) печать происходит на принтере, выбранном в ComboBox1. всё нормально, проблем нет.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=ComboBox1

Что сделать чтоб печать выводилась на принтер выбранный в ListBox1?

Спасибо!
Автор - MifV
Дата добавления - 22.10.2014 в 21:32
RAN Дата: Среда, 22.10.2014, 21:48 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
ComboBox1 на ListBox1 заменить не пробовали?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеComboBox1 на ListBox1 заменить не пробовали?
Автор - RAN
Дата добавления - 22.10.2014 в 21:48
doober Дата: Среда, 22.10.2014, 22:09 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Так правильно
ListBox1.List(ListBox1.ListIndex)

 
Ответить
СообщениеТак правильно
ListBox1.List(ListBox1.ListIndex)
Автор - doober
Дата добавления - 22.10.2014 в 22:09
MifV Дата: Среда, 22.10.2014, 22:17 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Цитата RAN, 22.10.2014 в 21:48, в сообщении № 2
ComboBox1 на ListBox1 заменить не пробовали?

пробовал, просто замена не работает, нужно еще что-то добавлять к ListBox

Цитата doober, 22.10.2014 в 22:09, в сообщении № 3
Так правильно
ListBox1.List(ListBox1.ListIndex)

получается, что я в своём окне выбрал принтер, нажал на печать, открывается еще одно окно выбора принтера. А без второго окна возможно?
или в данном случае лишнее моё окно?))
 
Ответить
Сообщение
Цитата RAN, 22.10.2014 в 21:48, в сообщении № 2
ComboBox1 на ListBox1 заменить не пробовали?

пробовал, просто замена не работает, нужно еще что-то добавлять к ListBox

Цитата doober, 22.10.2014 в 22:09, в сообщении № 3
Так правильно
ListBox1.List(ListBox1.ListIndex)

получается, что я в своём окне выбрал принтер, нажал на печать, открывается еще одно окно выбора принтера. А без второго окна возможно?
или в данном случае лишнее моё окно?))
Автор - MifV
Дата добавления - 22.10.2014 в 22:17
MifV Дата: Среда, 22.10.2014, 22:22 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
doober, всё получилось, спасибо большое!
 
Ответить
Сообщениеdoober, всё получилось, спасибо большое!
Автор - MifV
Дата добавления - 22.10.2014 в 22:22
RAN Дата: Среда, 22.10.2014, 22:28 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата doober, 22.10.2014 в 22:09, в сообщении № 3
Так правильно

Интересный нюанс.
Но можно до выгрузки передать ListBox1 в переменную.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата doober, 22.10.2014 в 22:09, в сообщении № 3
Так правильно

Интересный нюанс.
Но можно до выгрузки передать ListBox1 в переменную.
Автор - RAN
Дата добавления - 22.10.2014 в 22:28
doober Дата: Четверг, 23.10.2014, 00:19 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Андрей,
это не нюанс,надо нормально работать с переменными и свойствами объекта,а не полагаться на свойство по умолчанию.

 
Ответить
СообщениеАндрей,
это не нюанс,надо нормально работать с переменными и свойствами объекта,а не полагаться на свойство по умолчанию.
Автор - doober
Дата добавления - 23.10.2014 в 00:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор доступного принтера из ListBox и ComboBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!