Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como Evitar Erro ao...
 
Notifications
Clear all

[Resolvido] Como Evitar Erro ao clicar cancelar no Inputbox de Impressão - urgente defesa de mestrado

 
2024 - VBA & Macros
Post Recente por willramires 4 anos atrás
3 Posts
2 Usuários
3 Reactions
1,625 Visualizações
RSS
willramires
 willramires
(@willramires)
Posts: 11
Active Member
Topic starter
 

Prezados boa noite.

Criei um aplicativo produto do meu mestrado no Excel onde temos um botão para chamar a rotina de impressão de uma planilha especifica com a abertura da caixa de diálogo de impressão. 

No entanto, caso o usuário cancela a ação o Excel mostra Erro de 1004 de execução.

o Código é esse abaixo. Como mudo ele para evitar este erro se o usuário cancelar a impressão?

Sub Impressão_Perguntas()
'
' Impressão_Lista_de_perguntas
'
Sheets(Array("Perguntas Finais")).Select
Sheets("Perguntas Finais").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("RESPOSTAS PERGUNTAS").Select
Application.DisplayFullScreen = True
Range("A1").Select
End Sub

 
Postado : 31/12/2020 1:27 am
Tags do Tópico
Erro cancelar Inputbox de
 Anderson
(@anderson)
Posts: 203
Reputable Member
 
Sub Impressão_Perguntas()

on error goto fim
'
' Impressão_Lista_de_perguntas
'
Sheets(Array("Perguntas Finais")).Select
Sheets("Perguntas Finais").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("RESPOSTAS PERGUNTAS").Select
Application.DisplayFullScreen = True
Range("A1").Select

fim:
End Sub

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 31/12/2020 6:43 am
Eron reacted
willramires
 willramires
(@willramires)
Posts: 11
Active Member
Topic starter
 

@anderson

Muito obrigado. Você ajudou um mestrando cansado e na busca de defender logo.

 

Que 2021 seja excelente para você e sua família!!!

 
Postado : 31/12/2020 10:07 pm
Eron and Anderson reacted
Forum Jump:
  Tópico Anterior
Próximo Tópico  
Tags do Tópico:  Erro cancelar Inputbox de (1) ,