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

[IgorOk]

Как вывести диалог выбора принтера перед печатью листа?
А то подобная инструкция печатает только на принтер, установленный по умолчанию:

Код: Выделить всё

ActiveWorkbook.Worksheets("1").PrintOut

[Евген]

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

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\MAXTOR\hp LaserJet 1000 (Ne00:)", Collate:=True

[IgorOk]

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

[Евген]

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

[RayShade]

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

[IgorOk]

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