[Resolvido]Erro em Código VBA de Impressão

Bom dia,

Gostaria mais uma vez da ajuda de vocês, estou utilizando este código abaixo mais ele esta dando erro quando clico em imprimir que a ordem não esta autorizada (Erro: A execução deste aplicativo foi interrompida devido a um erro em tempo de execução, o programa será encerrado), quando ela esta autorizada ela funciona perfeitamente. meu banco de dados esta no formato accdr.

Código:

Private Sub Imprimir_relatório_Click()
   
If Me.Autorizo = 0 Then
If MsgBox("Ordem não Autorizada? ", vbQuestion + vbNo, "Aviso!") = vbNo Then

DoCmd.OpenReport "ROrdemDeCompra", acPreview
DoCmd.PrintOut
Else
End
End If
End If
DoCmd.OpenReport "ROrdemDeCompra", acPreview
DoCmd.PrintOut
   
End Sub

Desde já agradeço a tenção de todos.

Bom dia...

A grosso modo, vejo que tem um erro de lógica.

Acho e penso que possa ser feito assim:

Private Sub Imprimir_relatório_Click()

If Me.Autorizo = 0 Then
If MsgBox("Ordem não Autorizada? ", vbQuestion + vbNo+vbyes, "Aviso!") = vbNo Then
exit sub
else
DoCmd.OpenReport "ROrdemDeCompra", acPreview
DoCmd.PrintOut
end if
end if

End Sub

Olá Silvio, obrigado pela retorno, mais não esta funcionando, a mensagem de erro saio, só que a ordem autorizada não esta imprimindo e a não autorizada da a o aviso e depois imprime normal.

Para autorizar a ordem, qual número está usando...0 ou 1 ?

Silvio, já resolvi eu fiz essa outra e ela ficou funcionando perfeitamente, eu estava usando o número errado para autorizar, eu só queria mais uma ajuda no lugar dela imprimir direto queria que ele abrisse a caixa de dialogo para agente colocar a quantidade de cópias desejadas (Ex.: tipo quela quando agente preciosa Ctrl + P).

Código:

Private Sub Imprimir_relatório_Click()

If Me.Autorizo = -1 Then
  DoCmd.OpenReport "ROrdemDeCompra", acPreview
  DoCmd.PrintOut
 
  Else
    MsgBox "Ordem não Autorizada?", _
          vbExclamation, "Acesso Negado"
End If

End Sub

Ok....

De uma olhada nesse link:
https://www.maximoaccess.com/t12822-escolher-quantas-copias-imprimir-do-relatorio?highlight=numero+de+copias

Ok ajudou bastante, já está tudo resolvido, vou postar o código aqui como ele ficou casso alguém precise.

Código:

Private Sub Imprimir_relatório_Click()

If Me.Autorizo = -1 Then
  Dim bytVias, bytLoop As Byte
      bytVias = InputBox("Digite o número de cópias", "Imprimir", 1)
    If bytVias <> "" And bytVias <= 8 Then
      For bytLoop = 1 To bytVias
DoCmd.OpenReport "ROrdemDeCompra"
DoCmd.OpenReport "ROrdemDeCompra", acPreview 'para visualizar a ordem após impressão se não quiser é só remover esta linha'
    Next
    End If
  Else
    MsgBox "Ordem não Autorizada?", _
          vbExclamation, "Acesso Negado"
End If
End Sub

O fórum agradece o retorno.
Sucesso !