Notifications
Clear all

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


willramires
(@willramires)
Active Member Registered
Entrou: 9 meses atrás
Posts: 12
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


ResponderCitar (Quote)
Tags do Tópico
Anderson
(@anderson)
Estimable Member Registered
Entrou: 1 ano atrás
Posts: 178
 
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.


Eron curtiu
ResponderCitar (Quote)
willramires
(@willramires)
Active Member Registered
Entrou: 9 meses atrás
Posts: 12
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!!!


Eron e Anderson curtiram
ResponderCitar (Quote)