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

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Impressão de relatório Empty [Resolvido]Impressão de relatório

    Mensagem  Luís Antunes em Qua 11 Abr 2018, 15: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
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impressão de relatório Empty Impressão de relatório

    Mensagem  toyebom em Qua 11 Abr 2018, 16: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.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes em Qua 11 Abr 2018, 18: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
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impressão de relatório Empty Impressão de relatório

    Mensagem  toyebom em Qua 11 Abr 2018, 20:34



    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes em Qua 11 Abr 2018, 21:57

    Resovido
    Aproveitei o código do criquio

    Obrigado pela ajuda
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impressão de relatório Empty [Resolvido]Impressão de relatório

    Mensagem  toyebom em Qui 12 Abr 2018, 18:35

    OK


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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 22 Jul 2019, 22:23