☰

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

tag-icon • tag-icon microsoft-excel vba
Excel VBA установить принтер как общий принтер

У меня есть длинный код 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, чтобы сэкономить бумагу на принтере.

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

Спасибо

решение1

Только что попробовал ваш код, и мне удалось успешно сменить принтеры.

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

Может быть, LableWriter следует называть LabelWriter?

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

Связанный контент