MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Impressão de relatório

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 173
    Registrado : 05/04/2016

    [Resolvido]Impressão de relatório

    Mensagem  Luís Antunes em 11/4/2018, 19:43

    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
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    Impressão de relatório

    Mensagem  toyebom em 11/4/2018, 20:39

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 173
    Registrado : 05/04/2016

    Re: [Resolvido]Impressão de relatório

    Mensagem  Luís Antunes em 11/4/2018, 22:34

    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
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    Impressão de relatório

    Mensagem  toyebom em 12/4/2018, 00:34

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 173
    Registrado : 05/04/2016

    Re: [Resolvido]Impressão de relatório

    Mensagem  Luís Antunes em 12/4/2018, 01:57

    Resovido
    Aproveitei o código do criquio

    Obrigado pela ajuda
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    [Resolvido]Impressão de relatório

    Mensagem  toyebom em 12/4/2018, 22:35

    OK


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: 24/9/2018, 15:07