MACRO de impressão
Enviado: 29 Jan 2016 às 13:52
Boa tarde a todos,
Estou criando uma planilha com diversos botões de macro, sendo que um deles é para impressão, sendo que a ideia desse botão de impressão é imprimir apenas o que for selecionado na planilha.
Estes são os comandos que utilizei até então:
Resumindo, esta quase do jeito que eu quero, mas eu gostaria de colocar uma mensagem quando eu clicar no botão impressão e não tiver nada selecionado na planilha, algo do tipo "Para realizar a impressão, selecione as celulas desejadas".
Espero ter sido claro nas informações.
Obrigado desde já por qualquer ajuda.
Estou criando uma planilha com diversos botões de macro, sendo que um deles é para impressão, sendo que a ideia desse botão de impressão é imprimir apenas o que for selecionado na planilha.
Estes são os comandos que utilizei até então:
Código: Selecionar todos
Com isso, se eu selecionar as celulas que desejo imprimir e clicar no botão, tudo é impresso da forma correta, do contrário, se não há celulas selecionadas, um processo de impressão chega a ser enviado, todovia nada é impresso. Sub IMPRIMIR()
'
' IMPRIMIR Macro
'
'
If Sheets("Janeiro").Select Then
Selection.PrintOut Copies:=1, Collate:=True
Else
End If
End SubResumindo, esta quase do jeito que eu quero, mas eu gostaria de colocar uma mensagem quando eu clicar no botão impressão e não tiver nada selecionado na planilha, algo do tipo "Para realizar a impressão, selecione as celulas desejadas".
Espero ter sido claro nas informações.
Obrigado desde já por qualquer ajuda.