Ir ao conteúdo

Excel Comando para imprimir automático VBA


Ir à solução Resolvido por Zamboni_du,

Posts recomendados

Postado

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

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!