Em anexo uma planilha que imprime o gráfico que está na planilha.
O comando funciona corretamente, porém após a escolha da impressora abre o quadro para informar o nome que será salvo. Neste momento se clicar em "Cancelar" dá erro no execução 1004 e marca em amarelo a linha abaixo "Application.Dialogs(xlDialogPrint).Show ' isto escolhe a impressora"

Alguém consegue ajustar? Dar uma dica como resolver?

Private Sub btnimprimir_Click()
    
If MsgBox("Confirma a impressão do Gráfico?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
    Application.Dialogs(xlDialogPrint).Show ' isto escolhe a impressora
    Application.WindowState = xlNormal

End If


End Sub

https://www.sendspace.com/file/99epmm