Boa tarde fkleinbley,

Tenta assim:

Application.Dialogs(xlDialogPrinterSetup).Show

Qualquer coisa da o grito.
Abraço

Eu quero é definir pelo código, sem abrir a caixa de diálogo...

Abraço...

Boa arde fkleinbley,

Usa assim:

Application.ActivePrinter = "NOME DA IMPRESSORA DESEJADA"

Qualquer coisa da o grito.
Abraço

Somente isso não funciona, já havia testado. O nome da impressora seria o nome que aparece em dispositivos e impressoras no Windows?

Somente isso não funciona, já havia testado.

Funciona sim.

O nome da impressora seria o nome que aparece em dispositivos e impressoras no Windows?

Não. Execute isso já com a impressora que deseja ativa e coloque tudo que aparecer no campo do inputbox no código anterior:

Application.InputBox "Nome da impressora:", , Application.ActivePrinter

Qualquer coisa da o grito.
Abraço

Eu havia tentado os códigos com o application... e sempre dava erro, agora reiniciei o computador, usei novamente e funcionou, consegui ler o nome da impressora e definir como padrão do excel.

Se eu quiser definir como impressora padrão para o Windows, complica muito?

Se eu quiser definir como impressora padrão para o Windows, complica muito?

Veja este exemplo e se consegue adaptar a sua necessidade:

viewtopic.php?f=10&t=19660#p99898