Tenho uma planilha que inserir apenas um botão imprimir. Mas ao clicar em imprimir e precisar cancelar a impressão, ele não encerra e continua a imprimir.
Insiro no modulo a seguinte formula:

Sub EscolhaImpressora()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

Sub ImprimirRelatorio()
        Sheets("Relatorio_Saida").Range("A1:D46").PrintOut Copies:=1, Collate:=True
End Sub

onde escolho a impressora e depois imprimi.
Preciso cancelar a impressão