Eu tenho um longo VBA copiando células de uma página para outra e tentando imprimir três páginas para diferentes impressoras.
O código abaixo não parece estar mudando a impressora padrão e, assim, todas as páginas são enviadas para a mesma impressora.
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
Eu usei printPreview para economizar desperdício de papel na impressora.
Alguém pode me ajudar aqui na configuração de uma impressora para cada página.
Obrigado
Experimentei o seu código e consegui alterar as impressoras com êxito.
Acho que é mais provável que haja um erro de ortografia no nome da sua impressora.
Talvez o LableWriter deva ser LabelWriter?
Para determinar qual deve ser o nome da impressora, sugiro alterar manualmente sua impressora ativa, então faça algo como Debug.Print Application.ActivePrinter e compare cuidadosamente o resultado da sua string com o que você está especificando.
Tags microsoft-excel vba