Notifications

Clear all

Impressora Padrão

2024 - VBA & Macros

Post Recente por Basole 7 anos atrás

8 Posts

3 Usuários

0 Reactions

1,670 Visualizações

RSS

fkleinbley

(@fkleinbley)

Posts: 62

Trusted Member

Topic starter

Pesquisei na web e os códigos que encontrei sempre deram erro.

Queria colocar no workbook_open um código para definir uma impressora como padrão no excel? é possível?
se só der para definir como padrão no Windows, pode ser...

desde já grato...

Postado : 27/06/2017 11:45 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde fkleinbley,

Tenta assim:

Application.Dialogs(xlDialogPrinterSetup).Show

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 27/06/2017 12:15 pm

fkleinbley

(@fkleinbley)

Posts: 62

Trusted Member

Topic starter

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

Abraço...

Postado : 27/06/2017 12:43 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa arde fkleinbley,

Usa assim:

Application.ActivePrinter = "NOME DA IMPRESSORA DESEJADA"

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 27/06/2017 1:09 pm

fkleinbley

(@fkleinbley)

Posts: 62

Trusted Member

Topic starter

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

Postado : 27/06/2017 1:20 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 27/06/2017 1:26 pm

fkleinbley

(@fkleinbley)

Posts: 62

Trusted Member

Topic starter

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?

Postado : 27/06/2017 1:49 pm