Excel Comando para imprimir automático VBA

[Zamboni_du]

Pessoal,

 

Eu tenho um botão para impressão, porém gostaria que a impressão fosse automática após finalizar uma rotina, segue abaixo o código que uso no botão de impressão:

 

Sub ImprimirSelecao()

'Seleciona a área de impressão
priLin = ThisWorkbook.Sheets(1).Range("A1048576").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Range("A1:A" & priLin).Select

  Selection.PrintPreview
  

End Sub

 

Sub ImprimirSelecao2()

'Seleciona a área de impressão
priLin = ThisWorkbook.Sheets(2).Range("A1048576").End(xlUp).Row + 1
ThisWorkbook.Sheets(2).Range("A1:A" & priLin).Select

  Selection.PrintPreview
  

End Sub

[Zamboni_du]

alguém?

[Zamboni_du]

Resolvido!!!!

[Patropi]

@Zamboni_du

 

Para este tópico não ficar sem sentido, favor postar aqui a solução da dúvida.

 

[]s

[Zamboni_du]

@Patropi, segue conforme solicitado:

 

Eu substituí o código Selection.PrintPreview pelo ActiveSheet.PrintOut e acrescente o comando Call para chamar a segunda Sub.