Excel VBA установить принтер на общий принтер

Question

Я долго копирую ячейки VBA с одной страницы на другую и пытаюсь напечатать 3 страницы на разных принтерах.

Приведенный ниже код, похоже, не меняет принтер по умолчанию, поэтому все страницы отправляются на один и тот же принтер.

 For i = 0 To 15
    curNePrint = Format(i, "00")
    On Error Resume Next
        Application.ActivePrinter = "\\AtanaWin7PC3\DYMO LableWriter 450 on ne" & curNePrint & ":"
    Next i
 Worksheets(le).PrintPreview

Я использовал printPreview для сохранения ненужной бумаги на принтере.

Может кто-нибудь помочь мне здесь в настройке принтера для каждой страницы.

Спасибо

Answer 1

Просто попробовал ваш код, и я смог успешно сменить принтер.

Я думаю, что, скорее всего, в названии вашего принтера есть орфографическая ошибка.

Возможно, LableWriter должен быть LabelWriter?

Чтобы определить, каким должно быть имя принтера, я предлагаю вручную изменить ваш активный принтер, а затем сделать что-то вроде Debug.Print Application.ActivePrinter и тщательно сравнить ваш результат строки с тем, что вы указываете.