Como Evitar Erro ao...
 
Notifications
Clear all

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


willramires
Posts: 12
Registered
Topic starter
(@willramires)
Active Member
Entrou: 1 ano atrás

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

Responder
Tags do Tópico
2 Respostas
Anderson
Posts: 182
Registered
(@anderson)
Estimable Member
Entrou: 2 anos atrás
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
Responder
1 Responder
willramires
Registered
(@willramires)
Entrou: 1 ano atrás

Active Member
Posts: 12

@anderson

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

 

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

Responder