Страницы: 1
RSS
ComboBox с принтерами
 
Помогите с доработкой кода: есть форма из которой происходит пуск на печать листа документа, я хочу сделать, чтобы в этой форме был ComboBox с перечнем установленных на компьютере пользователя принтеров, а после выбора и нажатия кнопки происходил пуск печати на выбранный принтер. Я смог найти только как в комбо бокс загнать принтер по-умолчанию, а как все установленные не знаю. И еще как в коде печати учесть выбор принтера в комбо боксе.  
 
Private Sub UserForm_Initialize()  
   ComboBox1.AddItem ActivePrinter  
End Sub  
 
Private Sub Button1_Click()  
   Range("ОбластьПечати").PrintOut Copies:=1  
End Sub
 
Столько просмотров, ну хоть кто-нибудь помогите, извините за пустой пост.
 
Может файл выложите?  
Мне лень рисовать форму, комбобокс и т.п.  
И Вам будет удобнее - не на абстрактном примере, а на рабочем документе.  
Не забудьте удалить коммерческую информацию из файла
 
Файл во вложении.
 
Держите
 
{quote}{login=Лузер™}{date=11.06.2008 03:12}{thema=}{post}Держите{/post}{/quote}  
 
Спасибо огромное, комбобокс заработал, а печать не зависимо от выбранного принтера все равно идет на принтер по-умолчанию в системе.
 
Да, от комбобокса толку мало. :(  
Вот какой нюанс оказался:  
ActivePrinter надо задавать не только именем принтера, но и портом. Порт можно найти в реестре.  
Но у меня уже нет времени - море ждет  
Всем пока, я в отпуске!!!
Страницы: 1
Читают тему
Наверх