MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Impressão de Relatório em 4 vias

    avatar
    fbugman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 24/03/2014

    Impressão de Relatório em 4 vias Empty Impressão de Relatório em 4 vias

    Mensagem  fbugman em Seg Mar 24, 2014 6:43 pm

    Olá! Estou comum BD em Access e estou tendo um probleminha com os relatórios. O problema é que o relatório tem que ser impresso em 4 vias (eles são a mesma coisa) a diferença é que em cada um tem que vir o dizer "Via Cartório", "Via Familiar", "Via Cemitério" e "Via Funerária".
    Como faria para criar um botão que ao enviar para impressora imprimisse esses relatórios distintos automaticamente?

    Agradeço a atenção de todos!

     Arrow 
    clynton
    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  clynton em Seg Mar 24, 2014 10:52 pm

    Cria 4 relatórios idênticos como você quer, coloque no final do nome deles "Cartório", "Familiar", "Cemitério" e "Funerária".
    Em cada um você coloca um rótulo se referenciando ao destino, depois só definir na macro que será executada ao clicar no botão de imprimir para abrir e imprimir um de cada relatório.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3578
    Registrado : 04/04/2010

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  Avelino Sampaio em Ter Mar 25, 2014 7:37 am

    Olá!

    Uma outra opção é alterar o rótulo do relatório com as frases citadas.  Vc pode passar(OpenArgs) o nome do rótulo na chamada do relatório para a impressão.

    exemplo das chamadas do relatório, no evento "ao clicar" de um botão:

    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Cartório"
    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Familiar"
    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Cemitério"
    docmd.OpenReport "NomeRelatório",acViewNormal ,,,,"Via Funerária"

    e no evento "ao imprimir" do cabeçalho do relatório:

    Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
    Me!NomeDoRótulo.Caption = Me.OpenArgs
    End Sub

    Sucesso!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    toyebom
    toyebom
    VIP
    VIP

    Respeito às Regras 100%

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

    Impressão de Relatório em 4 vias Empty Impressão de Relatório em 4 vias

    Mensagem  toyebom em Ter Mar 25, 2014 9:29 am



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013

    Impressão de Relatório em 4 vias Empty Re: Impressão de Relatório em 4 vias

    Mensagem  clynton em Qua Maio 28, 2014 4:42 pm

    Fabiano,

    Se já tiver solucionado esta questão, por favor marque o tópico como [Resolvido], se não, diga-nos como está a situação.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

      Data/hora atual: Sab Set 19, 2020 9:40 am