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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Selecionar Impressora Antes da Impressão
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Selecionar Impressora Antes da Impressão
Colega
Bom dia
Tem como disponibilizar o código que você está usando?
Atenciosamente
Tov Elen Shau
Bom dia
Tem como disponibilizar o código que você está usando?
Atenciosamente
Tov Elen Shau
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Selecionar Impressora Antes da Impressão
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
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