Как установить "принтер по умолчанию" из программы

[VolkovAlexander]

Привет всем!
Помогите пожалста: мне из программы нужно переключать принтер "по умолчанию". К компу подключено 3 принтера. Нужно, чтобы прогрмма сначала устанавливала сначала один принтер как "принтер по умолчанию" и печатала на нем, затем другой и т.д.

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

Код вида (ниже) не работает
Dim X As Object
For Each X In Printers
    'Поиск устройства с именем "твой принтер"
    If X.DeviceName = "твой принтер" Then
        'Установить по умолчанию
        Set Printer = X
        ' Усё, шеф!
        Exit For
     End If
Next

'Печатаем форму frmHelp
frmHelp.PrintForm

[JohnCR]

Посмотри статьи по этим ссылкам:

1, 2, 3, 4.

В аттаче пример (писал не я). Сам не проверял. Нет в наличии принтеров )

[VolkovAlexander]

Большое спасибо все работает