Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Jonathan R

Macro - imprimir em duas impressora

Mensagem Recomendada

Olá!

Possuo um arquivo em excel com duas planilhas diferentes, estas são impressas em duas impressoras diferentes.

Gostaria de saber se há alguma macro que eu consiga enviar para impressão as duas planilhas nas suas respectivas impressoras diretamente, sem que eu tenha que selecionar a impressora.


Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito obrigado!

Deu certo!

Só que agora eu consegui detectar que os computadores enxergam a impressora em endereços diferentes, assim necessito de uma macro para cada computador.

Sabe se há alguma forma de fazer com que eu use somente uma macro para os dois?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sub Imprimir_certificado_PC1()

Sheets("CERTIFICADO DE CALIBRAÇÃO").Select
Range("A1:J90").Select
Application.ActivePrinter = "Brother DCP-7065DN Printer em Ne03:"
Selection.PrintOut Copies:=1, Collate:=True

Sheets("Etiquetas_Certificados").Select
Range("A1:G4").Select
Application.ActivePrinter = "\\est-091\ZDesigner GC420T (EPL) em Ne04:"
Selection.PrintOut Copies:=1, Collate:=True

Sheets("Dados da Calibração").Select
End Sub

Sub Imprimir_certificado_PC2()

Sheets("CERTIFICADO DE CALIBRAÇÃO").Select
Range("A1:J90").Select
Application.ActivePrinter = "Brother DCP-7065DN Printer em Ne01:"
Selection.PrintOut Copies:=1, Collate:=True

Sheets("Etiquetas_Certificados").Select
Range("A1:G4").Select
Application.ActivePrinter = "ZDesigner GC420T (EPL) em Ne00:"
Selection.PrintOut Copies:=1, Collate:=True

Sheets("Dados da Calibração").Select

End Sub

Sub Encontrar_impressora()

MsgBox "A Impressora Ativa é: " & Application.ActivePrinter '

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Substitua no código os nomes dos PCs "PC Oficina" e "PC Controle Qualidade". O nome deve estar entre aspas. Se precisar acrescentar mais máquinas ao código acrescente  ElseIf Environ("computername") = "NomeDoPC" Then e siga a estrutura.

Para saber o nome de cada máquina Painel de Controle / Sistema ou se você quiser fazer um Copiar/Colar rode o segundo código abaixo que colocará o nome da máquina em 'A1' da planilha ativa.

Sub ImprimeCertificadoEtiquetas()
 
 If Environ("computername") = "PC Oficina" Then
  Application.ActivePrinter = "Brother DCP-7065DN Printer em Ne03:"
  With Sheets("CERTIFICADO DE CALIBRAÇÃO")
   .PageSetup.PrintArea = "A1:J90"
   .PrintOut Copies:=1, Collate:=True
  End With
  Application.ActivePrinter = "\\est-091\ZDesigner GC420T (EPL) em Ne04:"
  With Sheets("Etiquetas_Certificados")
   .PageSetup.PrintArea = "A1:G4"
   .PrintOut Copies:=1, Collate:=True
  End With
  Sheets("Dados da Calibração").Select
 
 ElseIf Environ("computername") = "PC Controle Qualidade" Then
  Application.ActivePrinter = "Brother DCP-7065DN Printer em Ne01:"
  With Sheets("CERTIFICADO DE CALIBRAÇÃO")
   .PageSetup.PrintArea = "A1:J90"
   .PrintOut Copies:=1, Collate:=True
  End With
  Application.ActivePrinter = "ZDesigner GC420T (EPL) em Ne00:"
  With Sheets("Etiquetas_Certificados")
   .PageSetup.PrintArea = "A1:G4"
   .PrintOut Copies:=1, Collate:=True
  End With
  Sheets("Dados da Calibração").Select

 End If
 
End Sub

 

Sub NomeDoPC()
 [A1] = Environ("computername")
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...