Предварительный просмотр перед печатью

Программирование на Visual Basic for Applications
IgorOk
Обычный пользователь
Обычный пользователь
 
Сообщения: 54
Зарегистрирован: 29.01.2003 (Ср) 12:21

Предварительный просмотр перед печатью

Сообщение IgorOk » 02.07.2003 (Ср) 13:17

Как вывести диалог выбора принтера перед печатью листа?
А то подобная инструкция печатает только на принтер, установленный по умолчанию:
Код: Выделить всё
ActiveWorkbook.Worksheets("1").PrintOut

Евген
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 66
Зарегистрирован: 01.07.2003 (Вт) 14:13
Откуда: СПб

Сообщение Евген » 02.07.2003 (Ср) 14:11

А если в самом Макросе сразу задать принтер, вроде так

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\MAXTOR\hp LaserJet 1000 (Ne00:)", Collate:=True
Ёж птица гордая, пока не пнешь - не полетит!

IgorOk
Обычный пользователь
Обычный пользователь
 
Сообщения: 54
Зарегистрирован: 29.01.2003 (Ср) 12:21

Сообщение IgorOk » 02.07.2003 (Ср) 14:21

Не хотелось бы прописывать в макросе имя и путь к принтеру, уж больно часто они меняются. Хочется получить диалоговое окно выбора принтера.

Евген
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 66
Зарегистрирован: 01.07.2003 (Вт) 14:13
Откуда: СПб

Сообщение Евген » 02.07.2003 (Ср) 14:26

А нельзя ли какнидь получить имена и пути принтеров. а потом уж через свой диалог?
Ёж птица гордая, пока не пнешь - не полетит!

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 02.07.2003 (Ср) 14:39

Можно просто вызвать Application.Dialogs(xlDialogPrint).Show

IgorOk
Обычный пользователь
Обычный пользователь
 
Сообщения: 54
Зарегистрирован: 29.01.2003 (Ср) 12:21

Сообщение IgorOk » 02.07.2003 (Ср) 14:57

Спасибо огромное, все работает.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 63

    TopList