MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Impressão de relatório

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes 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
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  toyebom 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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes 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
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  toyebom 12/4/2018, 00: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 : Respeito às Regras 100%

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

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

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

    Resovido
    Aproveitei o código do criquio

    Obrigado pela ajuda
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  toyebom 12/4/2018, 22: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: 29/3/2024, 07:35