[Resolvido]Imprimir - Erro ao cancelar a impressão

Olá pessoal!

Tenho um botão "imprimir" no rlt com o seguinte código.

DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal

Porém, se eu cancelar a impressão me dá o seguinte erro pra depurar

"Erro em tempo de execução 2212" - Você não pode imprimir o objeto....

Alguém pode me orientar neste caso?

Portanto, apenas se eu cancelar a impressão, caso contrato imprimi normalmente

Att

Fabiano

Pode usar duas maneiras diferentes para tratar isso;

Código:

On Error Resume Next
DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal

Ou faz o tratamento do erro de cancelamento;

Código:

On Error GoTo 1
DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal

1:
    DoCmd.Hourglass False
    DoCmd.Echo True
    If Err.Number = 2212 Then Err.Number = 0: Exit Sub

Olá

Muito obrigado pelas dicas.

Funcionou perfeitamente

Utilizei este: Impressão normal

Private Sub Comando65_Click()
On Error Resume Next
DoCmd.OpenReport "rltImprimirOrcamento", acViewNormal
MsgBox "Processo executado com sucesso!!!", vbInformation, "Atenção!"  
Exit Sub
End Sub

E impressão PDF:
Private Sub IMPRIMI_EM_PDF_Click()
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rltImprimirOrcamento", acFormatPDF
MsgBox "Processo executado com sucesso!!!", vbInformation, "Atenção!"

Exit Sub
End Sub

Agradecido

Att

Fabiano

Fico feliz
Obrigado pelo retorno o fórum agradece.