Selecionar Impressora Antes da Impressão

[eronsadra]

Olá turma,

Poderiam me ajudar com uma rotina que selecionasse a impressora, seja por nome ou ip da rede
antes de realizar a impressão ?
Tenho 2 abas que precisam ser impressas em impressoras diferentes, mas via macro só estou conseguindo
que as duas sejam impressas na mesma impressora.

Obrigado.

[Tov Elen Shau]

Colega

Bom dia

Tem como disponibilizar o código que você está usando?

Atenciosamente

Tov Elen Shau

[Tov Elen Shau]

Você pode também está adaptando a seguinte rotina:

Sub Impressão()
'Colega, para pegar o nome da impressora correto use a Opção 01 da rotina NomeImpressora.
'Não se esqueça que além do nome tem mais um 'em Ne" alguma coisa no final, a Opção 01 vai te mostrar qual é. E termine sua string com dois pontos :

'===============Acessando 1.ª planilha
Sheets("Planilha1").Select '-------------Nome da primeira planilha
Dim Impressora1 As String
Impressora1 = Application.ActivePrinter
'Application.Dialogs(xlDialogPrinterSetup).Show
ThisWorkbook.Activate
Application.ActivePrinter = "Impressora x em Ne09:" 'Nome da impressora para imprimir a primeira planilha
ActiveSheet.PrintOut
Application.ActivePrinter = Impressora1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

'===============Acessando 2.ª Planilha
Sheets("Planilha2").Select '-------------Nome da segunda planilha
Dim Impressora2 As String
Impressora2 = Application.ActivePrinter
Application.ActivePrinter = "Impressora y em Ne09:" 'Nome da impressora para imprimir a segunda planilha
ActiveSheet.PrintOut
Application.ActivePrinter = Impressora2

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub


Sub NomeImpressora()
'Opção 01 - Essa rotina vai te mostrar o nome da impressora padrão
MsgBox "The name of the active printer is " & _
Application.ActivePrinter

' Opção 02 - Exibi uma Caixa de diálogo com o nome das impressoras
Application.Dialogs(xlDialogPrinterSetup).Show

End Sub