[Resolvido]Impressão de relatório

Este código Abre a opção de escolha da impressora (DoCmd.RunCommand acCmdPrint)
O que pretendia era que essa opção não abrisse caso o access reconhecesse a impressora.

Código:

 If MsgBox(("Deseja imprimir o caixa mensal"), vbYesNo, "Excluindo") <> vbYes Then
     DoCmd.CancelEvent
    MsgBox ("Impressão cancelada"), , "Cancelado"
    Else
    DoCmd.OpenReport "Rel_CaixaMensal ", acViewPreview
    On Error GoTo errhandle
    DoCmd.RunCommand acCmdPrint
    DoCmd.Close acReport, "Rel_CaixaMensal"
    End If
errhandle:
    If Err.Number = 2501 Then
    MsgBox ("Impressão cancelada")
    End If

Luís Antunes

Tenta

Private Sub SeuBotao_Click()
On Error GoTo 1
DoCmd.OpenReport "SeuRelatorio", acViewPreview
DoCmd.Maximize

If MsgBox("Deseja Imprimir ?", vbYesNo + vbInformation, "Imprimir") = vbYes Then
DoCmd.RunCommand acCmdZoom100
DoCmd.PrintOut acPrintAll
Else
DoCmd.RunCommand acCmdZoom100
Exit Sub
End If

1:
If Err.Number = 2501 Then
Resume Next
End If
End Sub

toyebom
Obrigado pela atenção.
O Código dá-me erro en (DoCmd.PrintOut acPrintAll)
Não pude testar quando o access não tem configurada a impressora. Testei com a impressora desligada o que não resultou.

Luís Antunes

Resovido
Aproveitei o código do criquio

Obrigado pela ajuda

OK